Tunnel Example for Visual Basic

Dim RasterProc As New LEADRasterProcess
Dim CenterX, CenterY As Integer

CenterX = LEADRasterView1.Raster.BitmapWidth
CenterY = LEADRasterView1.Raster.BitmapHeight / 2

   RasterProc.Tunnel LEADRasterView1.Raster, CenterX, CenterY,  0, CenterY*2, CenterX, -1,0, 25,0,100, 20000, RGB(255,0,0), RGB(0,0,0),TUN_AXIS_WIDTH | PLANE_FILL_CLR