جرب هذا ... لانه ليس لدي ماسح
Public Function SelectScanner()
'يتطلب إضافة مرجع إلى “Microsoft Windows Image Acquisition Library v2.0
Dim ComDialog As New WIA.CommonDialog
Dim wiaScanner As WIA.Device
' عرض نافذة لاختيار الجهاز
Set wiaScanner = ComDialog.ShowSelectDevice(WiaDeviceType.ScannerDeviceType, False, True)
' إذا تم اختيار جهاز، فإن DeviceID سيحتوي على معرف الجهاز المحدد
If Not wiaScanner Is Nothing Then
MsgBox "تم اختيار الجهاز: " & wiaScanner.DeviceID
Else
MsgBox "لم يتم اختيار أي جهاز."
End If
End Function