عاشقة القلم

السلام عليكم أخ ساهر هذا كود خاص بالمسح الضوئي ( سكنر ) أعمل زر وقم بتسميته سكنر وهذا هو الكود 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