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

[lic_dahool]

Código:

Private Sub Drive1_Change()
    Dir1.Path = Drive1.Drive
End Sub

Private Sub Dir1_Change()
    File1.Path = Dir1.Path
End Sub

saludos.

[Linuxera]

lic dahool:
Eres chico o chica??
Lo digo porque ME QUIERO CASAR CONTIGO!!!!!! (Yo me llamo María)
jajajaja.....
Muchisisisisisisimas gracias.
Me lo estás resolviendo todo.
No te muevas de ahi, que seguro que tengo más dudas...
Saludossssss