Available in the LEADTOOLS Imaging toolkit.
Posterize example for Access 2.0
This example applies a six-color poster effect and redisplays the image.
Me![LEAD1].Object.Posterize 6 Me![LEAD1].Object.ForceRepaint