StopFeedPages Example for Visual Basic

Dim WithEvents RasterTwain As LEADRasterTwain_U

Private Sub RasterTwain_AcquirePageEvent(ByVal pBitmap As Long)
	'insert the scanned image into the LEAD main control
	LEAD1.InsertBitmapListItem -1, pBitmap
	RasterTwain.StopFeedPages = False
End Sub

Private Sub TwainAcquire_Click()
	Set RasterTwain = New LEADRasterTwain_U
	Dim nRet As Integer
	
	RasterTwain.InitSession hWnd
	RasterTwain.SelectSource
 
	'select ADF option from the user interface
	nRet = RasterTwain.Acquire(L_LTWAIN_SHOW_USER_INTERFACE)
	If (nRet <> 0) Then
		MsgBox "Error Acquiring From Source", vbExclamation
	End If
	'Set bitmaplistindex to last page
	LEAD1.BitmapListIndex = LEAD1.BitmapListCount - 1
End Sub