جزاك الله خير اختي زهرة وهذا مش جديد عليكي 
 
ربنا يبارك فيكم وفي ذريتك  
 
انا فعلا بالامس وبعد محاولت عملت نفس الطريقة  
بالشكل ده  
 
 
    Dim file As String
    Call TWAIN_LogFile(1)
    Call TWAIN_SetHideUI(1)
    Call TWAIN_SetIndicators(0)
    Call TWAIN_SetJpegQuality(10)
    
    If TWAIN_OpenSource("HP Commercial Scanjet 8250 TWAIN") <> 0 Then
    Call TWAIN_SetPaperSize(1)
    ' If you can't use Me.hwnd, pass 0:
    file = Me.ID
    Call TWAIN_AcquireMultipageFile(Me.hwnd, "C:\Record\Sader\2007\" & file & ".PDF")
    End If
    
    If TWAIN_LastErrorCode() <> 0 Then
        Call TWAIN_ReportLastError("ÝÔáÊ ÚãáíÉ ÇáãÓÍ")
    End If
 
وهي تقريبا نفس الفكرة  
وجزاك الله خير  
 
لكن الحين فيه طلب تاني جزاكي الله خير  
وهو اني اعمل ذر في النموذج عند الضغط عليه يروح يفتح نفس الملف اللي عملت له اسكان ، عمال احاول فيها واعتقد انها نفس الفكرة لكن دايما مشكلتي في الاقواس العلامات البسيطة وين تتحط بالظبط  
يا ريت المساعدة في النقطة دي  
 
وعلي فكرة الفضل لله ثم حضرتك في انهاء هذا العمل لأني اقتبست بعض الاكود من مواضيعك المفيدة جعلها الله في ميزان حسناتك