Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
 
        lbl_info.Text = DirListBox.Path
        Me.Refresh()
 
    End Sub
 
    Private Sub DriveListBox_SelectedIndexChanged(ByVal sender As _
      System.Object, ByVal e As System.EventArgs) Handles _
      DriveListBox.SelectedIndexChanged
 
        Me.DirListBox.Path = Me.DriveListBox.Drive
 
    End Sub
 
    Private Sub DirListBox_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles DirListBox.SelectedIndexChanged
 
        Me.FileListBox.Path = Me.DirListBox.Path
 
    End Sub
 
    Private Sub DirListBox_Change(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles DirListBox.SelectedIndexChanged
 
        Me.FileListBox.Path = Me.DirListBox.Path
 
    End Sub