كيف استطيع برمجة زر في نموذج لتشغيل scanner الماسح الضوئي من خلاله

جرب هذا الكود 

Private Sub Command30_Click()
On Error GoTo Err_Command30_Click
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

والله اعلم 

جزاك الله خير جزاء ساجربه إن شاء الله الله