Como escanear a pdf?

[KenMasters]

Me tope con este codigo espero te ayude en algo

Código:

Private Sub escanear_Click() 
Dim fecha_nueva As Date 
' Bueno lo que hacemos aqui es crear una nueva variable tipo DATE 
fecha_nueva = "04/10/2009" 
' Y le asignamos alguna fecha del sistema en la que el EZTwain funcione osea una fecha vigente del periodo de prueba 
Date = fecha_nueva 
' Cambiamos nuestra fecha del sistema, por la fecha que vigente y procedemos a ejecutar las instrucciones que nos genera el asistente de codigo del EZTwain, como la fecha esta cambiada el EZTwain asume la fecha del sistema como la fecha que le asignamos y pudieron pasar 100 años que el funciona perfectamente  
Call TWAIN_SetHideUI(1) ' don't show the scanner UI 
Call TWAIN_OpenDefaultSource ' open the scanner device 
Call TWAIN_EnableDuplex(1) 
TWAIN_SetPixelType TWPT_BW ' ask to scan 1 bit per pixel black & white 
TWAIN_SetResolution 300 ' at 300 DPI 
' Now scan all available pages into a PDF file: 
Call TWAIN_AcquireMultipageFile(frame_digitalizarhojas.hwnd, "c:\nombre_archivo.pdf" 
' ESte Programa escanea muchas hojas por ADF y las empaqueta todas en un solo archivo .pdf  
Date = fecha End Sub 
' Y Finalmente volvemos la fecha del sistema a la normalidad con la variable global fecha que habiamos creado hace un rato y listop

Lo vi de aqui http://www.taringa.net/posts/ebooks-...Basic-6_0.html