BitmapList Example for Visual Basic

Private Sub BitmapListExample()
 Dim nCount As Integer
  Dim i As Integer
  Set Raster = Main.LEADRasterContainerViewer.Cell(0).BitmapList
  nCount = Raster.BitmapListCount
  Dim RasterProcess As New LEADRasterProcess
  For i = 0 To nCount - 1
      Raster.BitmapListIndex = i
      RasterProcess.Average Raster, 10
  Next i
  LEADRasterContainerViewer.Cell(0).InsertBitmapList Raster, False, 0
  Raster.BitmapList = 0
End Sub