Save example for Access 2.0

This example determines whether a bitmap is grayscale, saves it appropriately, loads the saved file, and redisplays the bitmap.

DoCmd Hourglass True
If Me![LEAD1].Object.IsGrayscale = 0 Then 'GRAY_NO 
    Me![LEAD1].Object.Save "c:\lead\images\tmp.cmp", FILE_CMP, 24, QFACTOR_PQ2, SAVE_OVERWRITE
Else ' save as grayscale
    Me![LEAD1].Object.Save "c:\lead\images\tmp.cmp", FILE_CMP, 8, QFACTOR_PQ2, SAVE_OVERWRITE
End If
Me![LEAD1].Object.Load "c:\lead\images\tmp.cmp", 0, 0, 1
Me![LEAD1].Object.ForceRepaint
DoCmd Hourglass False