Private Sub DirListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles DirListBox1.DoubleClick
Try
Microsoft.VisualBasic.ChDir(DirListBox1.Path)
FileListBox1.Path = DirListBox1.Path
Catch ex As System.Exception
MsgBox(ex.ToString)