Vignette Example for Visual Basic

Dim XCenter As Integer
Dim YCenter As Integer
Dim RasterProc As New LEADRasterProcess
XCenter = LEADRasterView1.Raster.BitmapWidth / 2
YCenter = LEADRasterView1.Raster.BitmapHeight / 2
RasterProc.Vignette LEADRasterView1.Raster, XCenter, _
YCenter, 50, 100, XCenter, YCenter, _
RGB(0, 0, 255), VIG_ELLIPSE Or VIG_FILLIN