PaintROP3 example for Visual Basic

Note: Also works with Access 95 and 97.

This example demonstrates the PaintROP3 property.

' Add this WIN32 constant to the Declarations module
Private Const SRCINVERT = 6684742

' Use this code to paint an inverted image.
Lead1.PaintROP3 = SRCINVERT
Lead1.ForceRepaint