Image Viewer

Code:

Private Sub Dir1_Change()

File1.path = Dir1.path

End Sub

Private Sub Drive1_Change()

Dir1.path = Drive1.Drive

End Sub

Private Sub File1_Click()

Dim path As String

path = File1.path & "\" & File1.FileName

Image1.Picture = LoadPicture(path)

Label4.Caption = path

End Sub

Private Sub Form_Load()

File1.Pattern = "*.jpg"

End Sub