PaintDither example for Visual Basic

Note: Also works with Access 95 and 97.

This example turns on error diffusion and redisplays the bitmap.

LEADRasterView1.PaintDither = PAINTDITHER_DIFFUSION
LEADRasterView1.ForceRepaint