Available in the LEADTOOLS Imaging toolkit.
PaintDither example for Visual Basic
This example turns on error diffusion and redisplays the bitmap.
Lead1.PaintDither = PAINTDITHER_DIFFUSION Lead1.ForceRepaint