Acquired Bitmap example for Visual Basic

Dim myTwain As LEADRasterTwain
Dim myIO As LEADRasterIO

Private Sub TestAcquiredPage()
   myTwain.EnableMethodErrors = False
   myTwain.SaveAcquiredBitmap = True
   myTwain.Acquire (L_LTWAIN_SHOW_USER_INTERFACE + L_LTWAIN_MODAL_USER_INTERFACE)

   Dim ras As New LEADRaster
   ras.BitmapList = myTwain.AcquiredBitmapList
   MsgBox "Acquired bitmap list count = " + Str(ras.BitmapListCount) 

   ' save last acquired bitmap to file
   ras.Bitmap = myTwain.AcquiredBitmap
   myIO.Save ras, "c:\test.bmp", FILE_TIF, 1, 0, 0
End Sub