Private Sub Form_Load()
  Dir1.Path = "C:\"
  Label1 = Dir1.Path
End Sub

Private Sub Drive1_Change()
  ' start in root of drive:
  Dir1.Path = Left(Drive1.Drive, 1) & ":\"
  Label1 = Dir1.Path
End Sub 

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

Private Sub File1_Click()
  Label1 = FullPath(File1)
End Sub