Private Sub cmdView_Click()
Dim mFile As String
mFile = File1.Path
If Right(mFile, 1) <> "\" Then mFile = mFile & "\"
mFile = mFile & File1.FileName
Picture1.Picture = LoadPicture(mFile)
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Subthis is txt file 