PatternStyle example for Visual Basic

Note: Also works with Access 95 and 97.

This example paints a transition with a diagonal cross pattern.

Lead1.AutoRepaint = False
Lead1.EffectDelay = 50
Lead1.Load "c:\lead\images\image1.cmp", 0, 0, 1
Lead1.TransitionEffect = EFX_EFFECT_WIPE_RECTANGLE_OUT
Lead1.TransitionStyle = EFX_TRANSITION_PATTERN
Lead1.PatternStyle = EFX_PATTERN_DIAG_CROSS
Lead1.PatternBackColor = RGB(255, 0, 0)
Lead1.PatternForeColor = RGB(0, 0, 255)
 Lead1.AutoRepaint = True