MosaicTiles Example for Visual Basic

Dim TWidth As Integer
Dim THeight As Integer
Dim RasterProc As New LEADRasterProcess

TWidth = LEADRasterView1.Raster.BitmapWidth / 5
THeight = LEADRasterView1.Raster.BitmapHeight / 5
RasterProc.MosaicTiles LEADRasterView1.Raster, 50, 7, _
TWidth, THeight, 0, 0, _
MSCT_CART Or MSCT_SHADOWGRAY, SHADOW_E, _
0, RGB(0, 0, 0), RGB(255, 255, 255)