PaintWhileLoad example for Visual Basic

Note: Also works with Access 95 and 97.

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

Dim RasterIO As New LEADRasterIO
LEADRasterView1.AutoRepaint = False
LEADRasterView1.AutoSetRects = True
LEADRasterView1.PaintSizeMode = PAINTSIZEMODE_FIT
LEADRasterView1.PaintWhileLoad = True
RasterIO.Load LEADRasterView1.Raster, "d:\lead14\dist\images\image2.cmp", 0, 0, 1