Capture example for Visual Basic

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

'Turn on the automatic display rectangles.
Lead1.AutoSetRects = True

'Set the scale mode to twips temporarily
OldMode = Lead1.ScaleMode
Lead1.ScaleMode = 1

Lead1.Capture 0, Left, Top, Width, Height
Lead1.AutoScroll = True
Lead1.ForceRepaint

'Set the scale mode to the previous mode
Lead1.ScaleMode = OldMode