Private Declare Function TWAIN_AcquireToClipboard Lib "EZTW32.DLL" ( _
 ByVal hwndApp&, ByVal wPixTypes&) As Long
 
Private Declare Function TWAIN_SelectImageSource Lib "EZTW32.DLL" ( _
 ByVal hwndApp&) As Long
 
Dim Ret As Long
   Ret = TWAIN_SelectImageSource(Me.hWnd) ' Scanquelle Auswahlfenster anzeigen
   If Ret <> 0 Then mnuScannen.Enabled = True ' Nur wenn etwas gewählt 
   ' wurde, Scan ermöglichen