PaintDither example for Access 2.0

This example turns on error diffusion and redisplays the bitmap.

Me![LEAD1].Object.PaintDither = PAINTDITHER_DIFFUSION
Me![LEAD1].Object.ForceRepaint