ProgressivePasses Example for Access 2.0

This example shows how to save and load a progressive file.

' Save the current image as a progressive CMP file.
Me![LEAD1].Object.ProgressivePasses = 8
Me![LEAD1].Object.Save "c:\lead\images\tmp.cmp", FILE_CMP, 24, QFACTOR_PQ2, SAVE_OVERWRITE

' Set properties to show progressive paints when we load.
Me![LEAD1].Object.PaintWhileLoad = True
Me![LEAD1].Object.AutoSetRects = False

' Load the file we just saved.
Me![LEAD1].Object.ProgressivePasses = PROGRESSIVEPASSES_WHEN_MEANINGFUL
Me![LEAD1].Object.Load "c:\lead\images\tmp.cmp", 0, 0, 1

' Restore the default behavior.
Me![LEAD1].Object.ProgressivePasses = 0