Correlation Example for Visual Basic

Dim RasterProc As New LEADRasterProcess
Dim RasterIO As New LEADRasterIO
Dim CorRaster As New LEADRaster
Dim i As Integer

RasterIO.Load CorRaster, "c:\1.cmp", 0, 0, 1

RasterProc.CorrelationMaxPoints = 90
RasterProc.Correlation LEADRasterView1.Raster, CorRaster, 1, 1, 90
MsgBox RasterProc.CorrelationCount
For i = 0 To RasterProc.CorrelationCount - 1
    MsgBox "X = " + Str(RasterProc.CorrelationX(i)) + Chr$(13) + _
       "Y = " + Str(RasterProc.CorrelationY (i)) + Chr$(13)

Next i