TransitionEffect example for Visual Basic

Note: Also works with Access 95 and 97.

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

Dim RasterIO As New LEADRasterIO
LEADRasterView1.AutoRepaint = False
LEADRasterView1.TransitionDelay = 50
RasterIO.Load LEADRasterView1.Raster, "d:\temp\24bit.bmp", 0, 0, 1
LEADRasterView1.TransitionEffect = EFX_EFFECT_WIPE_RECTANGLE_OUT
LEADRasterView1.TransitionStyle = EFX_TRANSITION_GRADIENT
LEADRasterView1.GradientStyle = EFX_GRADIENT_ANGLE_TO_LT
LEADRasterView1.GradientEndColor = RGB(0, 0, 0)
LEADRasterView1.GradientStartColor = RGB(255, 255, 255)
LEADRasterView1.GradientSteps = 255
LEADRasterView1.AutoRepaint = True