SaveInterlaced example for Access 2.0

This example saves the current image as an interlaced GIF file, then loads the saved image with a paint-while-load effect that shows the interlaced behavior.

'Save the current image as an interlaced GIF file.
Me![LEAD1].Object.SaveInterlaced = True
Me![LEAD1].Object.Save "d:\temp\tmp.gif", FILE_GIF, 8, 1, SAVE_OVERWRITE

'Clear the bitmap so that we can see the paint-while-load effect.
Me![LEAD1].Object.Bitmap = 0

'Paint the image while loading, showing that it is interlaced.
Me![LEAD1].Object.PaintWhileLoad = True
Me![LEAD1].Object.Load "d:\temp\tmp.gif", 0, 0, 1