كود عملية استدعاء صورة عن طريقة شاشة حوار فتح؟

On Error GoTo DialogError
With CommonDialog1
.CancelError = True ' Generate Error number cdlCancel if user click Cancel
.InitDir = "C:" ' Initial (i.e. default ) Folder
.Filter = "Executables (*.bmp) | *.bmp| Executables (*.ico) | *.ico| Executables (*.GIF) | *.GIF| Executables (*.DIB) | *.DIB| Executables (*.EMF) | *.EMF| Executables (*.ICB) | *.ICB| Executables (*.JPG) | *.JPG| Executables (*.JPEG) | *.JPEG| Executables (*.PBM) | *.PBM| Executables (*.PCD) | *.PCD| Executables (*.PCX) | *.PCX| Executables (*.PGM) | *.PGM| Executables (*.PNG) | *.PNG| Executables (*.PPM) | *.PPM| Executables (*.PSD) | *.PSD| Executables (*.TIF) | *.TIF| Executables (*.TIFF) | *.TIFF| Executables (*.SGI) | *.SGI| "
.FilterIndex = 1
.DialogTitle = "Select Picture an Press Open"
.ShowOpen ' Lauch the Open Dialog
Picture1.picture = .Filename
End With
Exit Sub
DialogError:
If Err.Number = cdlCancel Then
MsgBox "You clicked Cancel!", vbOKOnly + vbInformation, "Open Dialog"
Exit Sub
Else
MsgBox "Error in Dialog's use: " & Err.Description, vbOKOnly + vbCritical, "Error"
Exit Sub
End If
End Sub