Ripple Example for Visual Basic

Dim RasterProc As New LEADRasterProcess
Dim CenterX As Integer
Dim CenterY As Integer
CenterX = LEADRasterView1.Raster.BitmapWidth / 2
CenterY = LEADRasterView1.Raster.BitmapHeight / 2
RasterProc.Ripple LEADRasterView1.Raster, 20, 10,0,0, CenterX, CenterY, RGB(0,0,0), _FILL_RPT