a questo

codice:
Private Sub MnuEnviporta_Click()
Dim nPixTypes
Const CF_BITMAP = 2
On Error Resume Next
Clipboard.Clear
If Err Then Beep
If TWAIN_AcquireToClipboard(Me.hWnd, nPixTypes) = 0 Then MsgBox "No se pudo pasar la imagen al portapapeles.", 64, ""
 Image1.Picture = LoadPicture()
 Image1.Picture = Clipboard.GetData(CF_BITMAP)
If Err = 53 Then MsgBox "No se encuentra a EZTW32.DLL, y no se puede acceder al servicio TWAIN", 48, "No se encuentra la Dll"
End Sub