Punch 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.Punch LEADRasterView1.Raster, 100, 100, CenterX, CenterY, RGB(0,0,0),  _
FILL_RPT OR FILL_WOUTROT