Private Sub imgTest_Click()
Static filename As String
Dim pad As String
If Right(App.Path, 1) = "\" Then
pad = App.Path
Else
pad = App.Path & "\"
End If
If filename = "" Then
filename = Dir(pad & "*.bmp")
If Not filename = "" Then imgTest.Picture = LoadPicture(pad & filename)
Else
imgTest.Picture = LoadPicture(pad & filename)
filename = Dir
End If
End Sub