Private Sub Combo1_Change()
File1.Pattern = Combo1.Text
End Sub

Private Sub Command1_Click()
CommonDialog1.ShowOpen
End Sub
Private Sub Command4_Click()
End
End Sub

Private Sub Dir1_Change()
File1.Pattern = Combo1.Text
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub Form_Load()
Combo1.ListIndex = 0
File1.Pattern = Combo1.Text
End Sub