Grazie mille ho già risolto cosi

codice:
Private Sub Form_Load()
estensione = "jpg"
Thefile$ = Dir$("D:\Foto\*." & estensione)
While Thefile$ <> ""
    Thefile$ = Dir$
    ' scrivi in una listbox ad esempio
    List1.AddItem Thefile$
Wend
End Sub
adesso è giunto un'altro piccolo problemino una volta che le visualizzo tutte dentro la list box, ho provato a caricarle cosi:
codice:
Private Sub List1_Click()
Picture1.Picture = LoadPicture("D:\Foto\" & Thefile$)

End Sub
ma non funziona

perchè?? :master: