Visual Basic : DRIVE/DIRECTORY/FILE LISTBOX(Slip 4 & Slip 22)

Private Sub Command1_Click() File1.Pattern = "*.TXT" End Sub Private Sub Command2_Click() File1.Pattern = "*.JPG" End Sub Private Sub Command3_Click() File1.Pattern = "*.PDF" End Sub Private Sub Command4_Click() File1.Pattern = "*.*" End Sub Private Sub Command5_Click() Image1.Picture = LoadPicture(File1.Path & "\" & Filea1.FileName) End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub