AddWeightedBitmaps example for Visual Basic

Dim Raster As New LEADRaster
Dim RasterProc As New LEADRasterProcess
Dim ListCount As Integer
Dim i As Integer

ListCount = 4
RasterProc.FactorCount = ListCount

For i = 0 To ListCount - 1
      Raster.Bitmap = LEADRasterView1.Raster.Bitmap
      RasterProc.Rotate Raster, 720 * i, 0, RGB(255, 0, 0)
      LEADRasterView1.Raster.InsertBitmapListItem -1, Raster.Bitmap
      RasterProc.Factor(i) = 100
Next i

RasterProc.AddWeightedBitmaps LEADRasterView1.Raster, BC_AVG