PatternStyle example for Access 2.0

This example paints a transition with a diagonal cross pattern.

Me![LEAD1].Object.AutoRepaint = False
Me![LEAD1].Object.Load "c:\lead\images\image1.cmp", 0, 0, 1
Me![LEAD1].Object.TransitionEffect = EFX_EFFECT_WIPE_RECTANGLE_OUT
Me![LEAD1].Object.TransitionStyle = EFX_TRANSITION_PATTERN
Me![LEAD1].Object.PatternStyle = EFX_PATTERN_DIAG_CROSS
Me![LEAD1].Object.PatternBackColor = RGB(255, 0, 0)
Me![LEAD1].Object.PatternForeColor = RGB(0, 0, 255)
Me![LEAD1].Object.ForceRepaint