السلام عليكم أخ ساهر هذا كود خاص بالمسح الضوئي ( سكنر ) أعمل زر وقم بتسميته سكنر وهذا هو الكود
Dim stAppName As String
stAppName = "C:\WINDOWS\system32\wiaacmgr.exe"
Call Shell(stAppName, 1)
Exit_Command30_Click:
Exit Sub
Err_Command30_Click:
MsgBox Err.Description
Resume Exit_Command30_Click
End Sub