Ti ringrazio per esserti interessato al mio problema, ma dopo aver effettuato una ricerca nel forum ho trovato la soluzione con questo code:
With Form3.CommonDialog
.CancelError = True 'Imposta CancelError su True
.Filter = "JPG (Formato File JPEG)|*.Jpg|BMP (Bitmap Windows OS/2)|*.Bmp|GIF (GRAFIC FILES)|*.Gif"
.FilterIndex = 1
.DefaultExt = "Jpg"
.flags = cdlOFNNoChangeDir Or cdlOFNHideReadOnly Or cdlOFNFileMustExist Or cdlOFNNoReadOnlyReturn
.DialogTitle = "Selezionare il file da aprire"
.FileName = Txt_Percorso.Text 'Imposta il Nome del file
.InitDir = App.Path & "\"
.ShowOpen
End With
Txt1.Text = CommonDialog.FileName 'percorso completo
Txt2.Text = CommonDialog.FileTitle 'vilualizza file
Image1.Picture = LoadPicture(Txt_Percorso.Text)
Ciao

Rispondi quotando