Private
Sub
Dir1_Change()
File1.Path = Dir1.Path
End
Drive1_Change()
Dir1.Path = driver1.Path
File1_Click()
Image1.Picture=LoadPicture(Dir1.Path + "\"+File1.FileName)
Form_Load()
File1.Pattern =
"*.gif;*.jpg;*.bmp"