DriveListBox y DirListBox

[Linuxera]

Hola a todos!!!
A ver, pregunta para nota:
¿por que (piiiii) no me funciona este código?:

Private Sub Drive1_click()
Dim unidad As String

unidad = Drive1.ListIndex
ChDrive (unidad) .
Dir1.Refresh

End Sub

Private Sub Dir1_dblClick()
Dim directorio As String

directorio = Dir1.ListIndex
ChDir (directorio)
File1.Refresh

End Sub

Lo que quiero es que cuando selecciono la unidad de disco (en un driveListBox), automáticamente salgan sus directorios en un dirListBox.
Aparte de este código, que no se si está bien, ¿deben relacionarse las listas de alguna otra manera?
Gracias a los que me contestéis...
Me hareis un hijo de madera como me lo resolvais!!!!!
Saludossssssss