LensFlare Example for Visual Basic

Dim RasterProc As New LEADRasterProcess
Dim CenterX, CenterY As Integer
CenterX = LEADRasterView1.Raster.BitmapWidth / 4
CenterY = LEADRasterView1.Raster.BitmapHeight / 4
RasterProc.LensFlare LEADRasterView1.Raster, CenterX, CenterY, 100, LNS_TYPE_1, _ RGB(100, 150, 10)