Capture example for Access 95 and 97

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

' Declare local variables
Dim CaptureLeft, CaptureTop, CaptureWidth, CaptureHeight, OldMode

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

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

CaptureLeft = 0
CaptureTop = 0
CaptureWidth = Me.WindowWidth
CaptureHeight = Me.WindowHeight
Lead1.Capture 0, CaptureLeft, CaptureTop, CaptureWidth, CaptureHeight
Lead1.AutoScroll = True
Lead1.ForceRepaint

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