Pixelate Example for Visual Basic

Dim RasterProc As New LEADRasterProcess
Dim CenterX As Integer
Dim CenterY As Integer
CenterX = LEADRasterView1.Raster.BitmapWidth / 2
CenterX = LEADRasterView1.Raster.BitmapHeight / 2
RasterProc.Pixelate LEADRasterView1.Raster, 5, 10, 100, CenterX, CenterY, PIX_AVR _
                                                                           Or PIX_RAD _
                                                                           Or PIX_WPER _
                                                                           Or PIX_HPER