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