TransparentColor example for Access 2.0

This example sets white as a transparent color; then loads a test image and paints it.

Me![LEAD1].Object.AutoRepaint = False

'Enable transparency
Me![LEAD1].Object.BitmapEnableTransparency = True

'Make black the transparent color
Me![LEAD1].Object.BitmapTransparentColor = RGB(0, 0, 0) 
Me![LEAD1].Object.Load "d:\temp\ctest.bmp", 0, 0, 1
Me![LEAD1].Object.ForceRepaint