StopFeedPages Example for Visual Basic

Public WithEvents RasterTwain As LEADRasterTwain
   
Private Sub Command1_Click()
   Dim nRet As Integer

   ' 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
   ' To get the image passed to LeadRasterView, which is needed internally in the  Acquire method,
   ' you should invoke this event
End Sub

Private Sub RasterTwain_AcquirePageEvent(ByVal pBitmap As Long)
   LEADRasterView1.Raster.InsertBitmapListItem -1, pBitmap
   RasterTwain.StopFeedPages = False
End Sub