PatternStyle example for Visual Basic

Note: Also works with Access 95 and 97.

This example paints a transition with a diagonal cross pattern.

Dim RasterIO As New LEADRasterIO
LEADRasterView1.AutoRepaint = False
LEADRasterView1.TransitionDelay = 50
RasterIO.Load LEADRasterView1.Raster, "c:\lead\images\image1.cmp", 0, 0, 1
LEADRasterView1.TransitionEffect = EFX_EFFECT_WIPE_RECTANGLE_OUT
LEADRasterView1.TransitionStyle = EFX_TRANSITION_PATTERN
LEADRasterView1.PatternStyle = EFX_PATTERN_DIAG_CROSS
LEADRasterView1.PatternBackColor = RGB(255, 0, 0)
LEADRasterView1.PatternForeColor = RGB(0, 0, 255)
LEADRasterView1.AutoRepaint = True