PaintDither example for Visual Basic

Note: Also works with Access 95 and 97.

This example turns on error diffusion and redisplays the bitmap.

Lead1.PaintDither = PAINTDITHER_DIFFUSION
Lead1.ForceRepaint