Posterize example for Visual Basic

Note: Also works with Access 95 and 97.

This example applies a six-color poster effect and redisplays the image.

Dim RasterProc As New LEADRasterProcess
RasterProc.Posterize LEADRasterView1.Raster, 6
LEADRasterView1.ForceRepaint