ColorRes example for Access 2.0

This example checks to see if the bitmap is 8 bits per pixel and converts it if it is not.

If Me![LEAD1].Object.BitmapBits <> 8 Then
    DoCmd Hourglass True
    Me![LEAD1].Object.ColorRes 8, CRP_OPTIMIZEDPALETTE, CRD_FLOYDSTEINDITHERING, 0
    DoCmd Hourglass False
    Me![LEAD1].Object.ForceRepaint
End If