سوال: خیلی فوری ( جلوگیری از خطای کاربری در فراخوانی عکس (image)

Private Sub Command7_Click()
Dim sFile As String
With CD1
.DialogTitle = "ÇäÊÎÇÈ ÊÕæíÑ ÑÇåäãÇ"
.CancelError = False
'ToDo: set the flags and attributes of the common dialog control
.Filter = "Picture (*.JPG)|*.JPG"
.ShowOpen
If Len(.FileName) = 0 Then
Exit Sub
End If
sFile = .FileName
Label69.Caption = CD1.FileName
End With
End Sub

Private Sub Label69_Change()
Image3.Picture = LoadPicture(Label69.Caption)
End Sub