Light Example for Visual Basic

Dim RasterProc As New LEADRasterProcess
Dim CenterX, CenterY, iWidth, iHeight As Integer

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

   If LEADRasterView1.Raster.BitmapHeight  >  LEADRasterView1.Raster.BitmapWidth / 2 Then
      iWidth = LEADRasterView1.Raster.BitmapHeight
   Else
      iHeight = LEADRasterView1.Raster.BitmapWidth / 2
   End If

   RasterProc.Light LEADRasterView1.Raster, CenterX, CenterY, iWidth, iHeight, 0, 100, _ 
0,  RGB(255, 255, 255),  100, 1, 100, 0, RGB(255, 255, 255), LGT_SPOTLIGHT