Capture example for Visual Basic

This example captures the current form and displays the captured image with scroll bars.

Dim OldMode
'Turn on the automatic display rectangles.
LEADRasterView1.AutoSetRects = True
'Set the scale mode to twips temporarily
OldMode = LEADRasterView1.ScaleMode
LEADRasterView1.ScaleMode = 1
LEADRasterView1.Raster.Capture 0, Left, Top, Width, Height
LEADRasterView1.AutoScroll = True
LEADRasterView1.ForceRepaint
'Set the scale mode to the previous mode
LEADRasterView1.ScaleMode = OldMode