ColorRes example for Access 95 and 97

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

If Lead1.BitmapBits <> 8 Then
    DoCmd.Hourglass True
    Lead1.ColorRes 8, CRP_OPTIMIZEDPALETTE, CRD_FLOYDSTEINDITHERING, 0
    DoCmd.Hourglass False
    Lead1.ForceRepaint
End If