' Utilizzare periferiche di acquisizione da codice Visual Basic - Listato 1
  '===============================SUPPORTO TWAIN======================================
  
  Private Const TWAIN_BW = &H1  ' 1-bit per pixel, Bianco e Nero
  Private Const TWAIN_GRAY = &H2  ' 1,4, o 8 bit Scala di grigi
  Private Const TWAIN_RGB = &H4  ' 24 bit true color
  Private Const TWAIN_PALETTE = &H8  ' palette a 1,4, o 8 bit
  Private Const TWAIN_ANYTYPE = &H0  ' qualsiasi di quelli sopra
 
  'Acquisisce un'immagine in una DIB. Al termine,rilasciare le risorse con TWAIN_FreeNative
  Private Declare Function TWAIN_AcquireNative Lib "EZTW32.DLL" _
          (ByVal hwndApp As Long, ByVal wPixTypes As Long) As Long
 
  'Rilascia le risorse al termine dell'acquisizione
  Private Declare Sub TWAIN_FreeNative Lib "EZTW32.DLL" (ByVal hDib As Long)
 
  'Restituisce 1 se ok, 0 in caso di errore
  Private Declare Function TWAIN_AcquireToClipboard Lib "EZTW32.DLL" _
          (ByVal hwndApp As Long, ByVal wPixTypes As Long) As Long
 
  'Restituisce 0 se OK, -1 se errore o annullamento dell'utente
  '-2 errore di apertura del file, -3 errore di creazione della DIB
  '-4 errore di creazione del file (disco probabilmente pieno)
  Private Declare Function TWAIN_AcquireToFilename Lib "EZTW32.DLL" _
          (ByVal hwndApp As Long, ByVal sFIle As String) As Long
 
  'Restituisce 1 se OK, 0 in caso di errore
  Private Declare Function TWAIN_SelectImageSource Lib "EZTW32.DLL" _
          (ByVal hWnd As Long) As Long
 
  'Restituisce 1 se OK, 0 in caso di errore
  Private Declare Function TWAIN_IsAvailable Lib "EZTW32.DLL" () As Long
 
  'Restituisce il numero della versione moltiplicato per 100
  Private Declare Function TWAIN_EasyVersion Lib "EZTW32.DLL" () As Long
 
  'Restituisce 0 se OK, -1 se errore o annullamento dell'utente
  '-2 errore di apertura del file, -3 errore di creazione della DIB
  '-4 errore di creazione del file (disco probabilmente pieno)
  Private Declare Function TWAIN_WriteNativeToFilename Lib "EZTW32.DLL" _
          (ByVal hDib As Long, ByVal sFIle As String) As Long
 
  'Scrive una DIB in un file .bmp
  'Restituisce gli stessi valori della precedente
  Private Declare Function TWAIN_WriteNativeToFile Lib "EZTW32.DLL" _
          (ByVal hDib As Long, ByVal hFile As Long) As Long
 
  'Ottiene la profondità in bit che può dipendere dal valore di PixelType
  'Si considera in bit per canale, ad es. a 24-bit RGB corrisponde 8
  'Restituisce 0 in caso di errore.
  Private Declare Function TWAIN_GetBitDepth Lib "EZTW32.DLL" () As Long
 
  'Imposta la profondità dell'immagine
  Private Declare Function TWAIN_SetBitDepth Lib "EZTW32.DLL" (ByVal nBits As Long) As Long
 
  'Richiede alla sorgente il tipo di pixel attuale
  'Restituisce 0 in caso di errore
  Private Declare Function TWAIN_GetPixelType Lib "EZTW32.DLL" () As Long

  'Cerca di impostare il tipo di pixel per l'acquisizione
  'Restituisce 0 in caso di errore
  Private Declare Function TWAIN_SetCurrentPixelType Lib "EZTW32.DLL" _
          (ByVal nPixType As Long) As Long

  'Ottiene la risoluzione orizzontale in DPI
  'Restituisce 0 in caso di errore
  Private Declare Function TWAIN_GetCurrentResolution Lib "EZTW32.DLL" () As Double

  'Imposta la risoluzione in DPI
  'Restituisce 0 in caso di errore
  Private Declare Function TWAIN_SetCurrentResolution Lib "EZTW32.DLL" (ByVal dRes As Double) 
  As Long

  'Imposta il contrasto
  'Il valore accettato varia tra -1000 e 1000
  Private Declare Function TWAIN_SetContrast Lib "EZTW32.DLL" (ByVal dCon As Double) As Long

  'Imposta la luminosità
  'Il valore accettato varia tra -1000 e 1000
  Private Declare Function TWAIN_SetBrightness Lib "EZTW32.DLL" _
          (ByVal dBri As Double) As Long
 
  '==========================================================================================