No entiendo el error..

estas seguro de que tienes algo como ésto:
Cita: Private Sub DriveListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DriveListBox1.SelectedIndexChanged
DirListBox1.Path = DriveListBox1.Drive
End Sub
P.D.- Porque no haces un try catch para ver el tipo de error..
Salu2