TransitionEffect example for Visual Basic

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

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_GRADIENT
Lead1.GradientStyle = EFX_GRADIENT_ANGLE_TO_LT
Lead1.GradientEndColor = RGB(0, 0, 0)
Lead1.GradientStartColor = RGB(255, 255, 255)
Lead1.GradientSteps = 255
 Lead1.AutoRepaint = True