UserShape Example for Visual Basic

Dim RasterProc As New LEADRasterProcess
Dim i As Integer
RasterProc.LightAngle = 9000
RasterProc.LightFrequency = 10
RasterProc.LightFlags = FL_FREEHAND Or FL_ADD
RasterProc.UserShapeCount = 10
For i = 0 To RasterProc.UserShapeCount - 1
   RasterProc.UserShape(i) = i * 10
Next i
RasterProc.FunctionalLight LEADRasterView1.Raster