PaintROP3 example for Access 2.0

This example demonstrates the PaintROP3 property.

' Define Windows constant
Const SRCINVERT = 6684742

' Paint an inverted image
Me![LEAD1].Object.PaintROP3 = SRCINVERT
Me![LEAD1].Object.ForceRepaint