اريد مساعد في ضبظ زر السكانز؟

السلام عليكم ورحمة الله وبركاته...

عند مشكله وعارف ان في حل من عندكم....

عامل زرللسكانر وله برمجه يقوم مسح ضوئي وتخزنها وتتجددالصوره كل مره مع معا مله جديده المهم هذ البرمجه دونتها واريد ان اغيرها البرمجه حسب رقم الوظيف!! بس كيف ؟؟

Private Sub in_scan_Click()

On Error GoTo Err_in_scan_Click

Dim otherpage, flname, loadsourcemanager, TWPT_BW, s%

If loadsourcemanager = 2 Then

MsgBox "loaded"

TWAIN_SetCurrentPixelType (TWPT_BW)

End If

s% = TWAIN_AcquireToFilename(Me.hwnd, "c:\1.jpg")

'If s% = 0 Then

' GoTo Err_in_scan_Click

'End If

'Screen.MousePointer = 0

Exit_in_scan_Click:

Exit Sub

Err_in_scan_Click:

MsgBox MsgBox("لقد تم إلغاء عملية المسح الضوئي")

Resume Exit_in_scan_Click