Halftone Example for Visual Basic

Dim Raster As New LEADRaster
Dim RasterProc As New LEADRasterProcess
Dim iDim As Integer
Dim i As Integer
iDim = 5
For i = 0 To 25
      Raster.Bitmap = LEADRasterView1.Raster.Bitmap
      RasterProc.Rotate Raster, 360 * i, 0, RGB(255, 0, 0)
      LEADRasterView1.Raster.InsertBitmapListItem -1, Raster.Bitmap
   Next i

RasterProc.HalfTone LEADRasterView1.Raster, HALFTONE_USERDEF, 0, iDim