No non esiste nella parte del codice.

in FORM1
codice:
Option Explicit
Private Sub Form_Load()
If App.PrevInstance Then Unload Me
End Sub

Private Sub Form_Resize()
On Error Resume Next
Move (Screen.Width - Width) \ 29, (Screen.Height - Height) \ 29
Image1.Move 100, 200, Me.ScaleWidth - 200, Me.ScaleHeight - 350

End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub

Private Sub MnuAcerca_Click()
Form2.Show vbModal
End Sub

Private Sub MnuBorraima_Click()
Image1.Picture = LoadPicture()
End Sub

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

Private Sub MnuGuardaco_Click()
Dim ofn As SAVEFILENAME
ofn.lStructSize = Len(ofn)
ofn.hwndOwner = Form1.hWnd
ofn.hInstance = App.hInstance
ofn.lpstrFilter = "Mapa de Bits (*.bmp)" + Chr(0) + "*.bmp" + Chr$(0) + "Mapa de Bits Independiente (*.Dib)" + Chr$(0) + "*.dib" + Chr$(0) + "Imagen Codificada (*.Rle)" + Chr$(0) + "*.rle" + Chr$(0) + "Todos los archivos" + Chr$(0) + "*.*" + Chr$(0)
ofn.lpstrFile = Space$(254)
ofn.nMaxFile = 255
ofn.lpstrFileTitle = Space$(254)
ofn.nMaxFileTitle = 255
ofn.lpstrInitialDir = CurDir
ofn.flags = &H4
ofn.lpstrTitle = "Abrir Imagen Como"

Temp = ""
Temp = GetSaveFileName(ofn)

If Temp Then 'Si se ha elegido un fichero...
    Dim Fichero As String
    Fichero = Trim$(ofn.lpstrFile)
SavePicture Image1.Picture, Fichero
MsgBox "Imagen Guardada como: " + Fichero, 64
End If
End Sub

Private Sub MnuPegar_Click()
Image1.Picture = LoadPicture()
Const CF_BITMAP = 2
    Image1.Picture = Clipboard.GetData(CF_BITMAP)

End Sub

Private Sub MnuSalir_Click()
End
End Sub

Private Sub MnuSeleccionar_Click()
On Error Resume Next

TWAIN_SelectImageSource (Me.hWnd)
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

mentre nel modulo

codice:
Public Declare Function TWAIN_SelectImageSource Lib "EZTW32.DLL" (ByVal hwndApp&) As Long
Public Declare Function TWAIN_AcquireToClipboard Lib "EZTW32.DLL" (ByVal hwndApp As Long, ByVal wPixTypes As Long) As Long
Public Declare Function TWAIN_IsAvailable Lib "EZTW32.DLL" () As Long
Public Declare Function TWAIN_EasyVersion Lib "EZTW32.DLL" () As Long
Public Type SAVEFILENAME
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    lpstrFilter As String
    lpstrCustomFilter As String
    nMaxCustFilter As Long
    nFilterIndex As Long
    lpstrFile As String
    nMaxFile As Long
    lpstrFileTitle As String
    nMaxFileTitle As Long
    lpstrInitialDir As String
    lpstrTitle As String
    flags As Long
    nFileOffset As Integer
    nFileExtension As Integer
    lpstrDefExt As String
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As String
End Type
Public Temp As Variant
Public Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As SAVEFILENAME) As Long