Acquire Example for Visual Basic

   Dim RasterTwain As New LEADRasterTwain
   
   RasterTwain.FileTransferName = "c:\twain.bmp"
   MsgBox CStr(RasterTwain.MemBufSize)
   nRet = RasterTwain.Acquire(L_LTWAIN_SHOW_USER_INTERFACE)
   If (nRet <> 0) Then
      MsgBox "Error Acquiring From Source", vbExclamation
   End If
   ' Use this event to get the image passed to the LeadRasterView control that is needed internally
   ' in the  Acquire method,
   Private Sub RasterTwain_AcquirePageEvent(ByVal pBitmap As Long)
   LEADRasterView1.Raster.InsertBitmapListItem -1, pBitmap
   End Sub