PaintWhileLoad example for Visual Basic

Note: Also works with Access 95 and 97.

This example causes the LEAD control to paint the image as it loads.

Lead1.AutoRepaint = False
Lead1.AutoSetRects = True
Lead1.PaintSizeMode = PAINTSIZEMODE_FIT
Lead1.PaintWhileLoad = True

Lead1.Load "d:\lead\images\image1.cmp", 0, 0, 1