TransitionEffect example for Access 2.0

This example paints a transition with a 255-step grayscale gradient.

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_GRADIENT
Me![LEAD1].Object.GradientStyle = EFX_GRADIENT_ANGLE_TO_LT
Me![LEAD1].Object.GradientEndColor = RGB(0, 0, 0)
Me![LEAD1].Object.GradientStartColor = RGB(255, 255, 255)
Me![LEAD1].Object.GradientSteps = 255
Me![LEAD1].Object.ForceRepaint