EffectSpeed Example for Visual Basic

Dim RasterIO As New LEADRasterIO
LEADRasterView1.AutoRepaint = False
LEADRasterView1.TransitionDelay = 50
RasterIO.Load LEADRasterView1.Raster, "c:\1.bmp", 0, 0, 1
LEADRasterView1.EffectSpeed = 0
LEADRasterView1.EffectCycles = 0
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