CaptureSelectedObject Example for Visual Basic

    'set custom cursor
    LEADRasterScr1.CaptureObjectSelectCursor = LoadPicture("d:\temp\test.cur")
    LEADRasterScr1.CaptureObjectSelectCursorIndex = 99
    
    'disable invert colors
    LEADRasterScr1.CaptureObjectInvert = False
    
    'disable keyboard
    LEADRasterScr1.CaptureObjectEnableKeyboard = False
    
    'set object border width
    LEADRasterScr1.CaptureObjectBorderWidth = 3
    
    'do the capture
    LEADRasterScr1.CaptureSelectedObject
    
    'copy the captured image to a Main Control
    LEADRasterView1.Raster.Bitmap = LEADRasterScr1.Bitmap

    'reset options
    LEADRasterScr1.ResetObjectOptions