TextureAlphaBlend Example for Visual Basic

Dim RasterSrc As New LEADRaster
Dim RasterMask As New LEADRaster
Dim RasterUnderlay As New LEADRaster
Dim RasterIO As New LEADRasterIO
Dim RasterProc As New LEADRasterProcess

RasterIO.Load RasterSrc, "C:\image1.cmp", 0, 0, 1
RasterIO.Load RasterMask, "C:\FadeMask.cmp", 0, 0, 1

RasterProc.TextureAlphaBlend LEADRasterView1.Raster, 0, 0, 100, 100, RasterSrc, 0, 0, RasterMask, 100, Nothing, 0, 0