CaptureImage Example for Visual Basic

Private Sub LEADRasterScr1_OnCaptureImage(ByVal CaptureNumber As Long)
    'copy the captured image to a Main Control and save it
    LEADRasterView1.Raster.Bitmap = LEADScr1.Bitmap
    LRasterIO1.Save "d:\temp\test.tif", FILE_TIF, 0, 2, SAVE_APPEND
End Sub