جرب ضع هذا السطر
On Error Resume Next
في بداية الكود ليصبح الكود هكذا :
Private Sub cmdScan_Click()
On Error Resume Next
Dim Ret As Long, PictureFile As String
' إذا كنت ترغب في تحزين الصور في مسار آخر فغير المسار من هنا
' حالياً سيتم تخزين الصور في نفس مجلد البرنامج
PictureFile = mypathofdb() & Me.ID & "image.jpg"
Ret = TWAIN_AcquireToFilename(Me.Hwnd, PictureFile)
If Ret = 0 Then
Me.pic_path = PictureFile
Me.pic.Picture = Me.pic_path
Else
Kill PictureFile
MsgBox "فشلت عملية السكان", vbCritical, "تنبيه"
End If
End Sub