Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub File1_Click()
Picture1.Picture = LoadPicture(File1.Path & "\" & File1.FileName)
End Sub

scrivi questo codice dopo aver creato un dirlistbox, un filelistbox e un picturebox.
poi esegui!!!

spero d'esserti stato d'aiuto!!!
ciao!