PaintZoomFactor example for Visual Basic

Note: Also works with Access 95 and 97.

This example shows how to set the PaintZoomFactor property so that image is scaled 200 percent for display.

Lead1.AutoScroll = False
Lead1.AutoSetRects = True
Lead1.PaintSizeMode = PAINTSIZEMODE_ZOOM
Lead1.PaintZoomFactor = 200
Lead1.ForceRepaint