LineProfile example for Visual Basic

   Dim maxR As Long, maxG As Long, maxB As Long, i As Integer
   Dim RasterProc As New LEADRasterProcess
   RasterProc.LineProfile LEADRasterView1.Raster, 10, 10, 220, 120
   For i = 0 To RasterProc.LineProfileSize - 1
      If RasterProc.LineProfileRed (i) > maxR Then maxR = RasterProc.LineProfileRed(i)
      If RasterProc.LineProfileGreen (i) > maxG Then maxG = RasterProc.LineProfileGreen(i)
      If RasterProc.LineProfileBlue (i) > maxB Then maxB = RasterProc.LineProfileBlue(i)
   Next
   MsgBox "maxR= " & maxR & ", maxG= " & maxG & ", maxB= " & maxB