CorrelationList Example for Visual Basic

Dim iListCount As Integer
Dim iListIndex As Integer
Dim iListMaxPoints As Integer
Dim i As Integer
Dim c As Integer
Raster2.Bitmap = 0
   For i = 0 To 4
     Raster2.Bitmap = LEADRasterView1.Raster.Bitmap
     RasterProc.Rotate Raster2, 7200 * i, 0, RGB(255, 0, 0) 
     LEADRasterView2.Raster.InsertBitmapListItem -1, Raster2.Bitmap
   Next i

   RasterProc.CorrelationListMaxPoints = 90
   RasterProc.CorrelationList LEADRasterView2.Raster, 1, 2, 10

   iListCount = RasterProc.CorrelationListCount
   iListMaxPoints = RasterProc.CorrelationListMaxPoints

   For c = 0 To iListCount

      iListIndex = RasterProc.CorrelationListIndex(c) 
      MsgBox "X = " + Str(RasterProc.CorrelationListX(iListIndex)) + Chr$(13) + _
         "Y = " + Str(RasterProc.CorrelationListY(iListIndex)) + Chr$(13) 
   Next c