ColorizeGray Example for Visual Basic

   Dim RasterSrc As New LEADRaster
   Dim RasterIO As New LEADRasterIO
   Dim RasterProc As New LEADRasterProcess
   RasterIO.Load RasterSrc, "c:\image1.bmp", 0, 0, 1

   RasterProc.GrayColorCount = 6

   RasterProc.GrayColorThreshold(0) = 9999
   RasterProc.GrayColorRed(0) = 255
   RasterProc.GrayColorGreen(0) = 0
   RasterProc.GrayColorBlue(0) = 0

   RasterProc.GrayColorThreshold(1) = 19999
   RasterProc.GrayColorRed(1) = 0
   RasterProc.GrayColorGreen(1) = 255
   RasterProc.GrayColorBlue(1) = 0

   RasterProc.GrayColorThreshold(2) = 29999
   RasterProc.GrayColorRed(2) = 0
   RasterProc.GrayColorGreen(2) = 0
   RasterProc.GrayColorBlue(2) = 255

   RasterProc.GrayColorThreshold(3) = 39999
   RasterProc.GrayColorRed(3) = 0
   RasterProc.GrayColorGreen(3) = 255
   RasterProc.GrayColorBlue(3) = 255

   RasterProc.GrayColorThreshold(4) = 49999
   RasterProc.GrayColorRed(4) = 255
   RasterProc.GrayColorGreen(4) = 0
   RasterProc.GrayColorBlue(4) = 255

   RasterProc.GrayColorThreshold(5) = 59999
   RasterProc.GrayColorRed(5) = 255
   RasterProc.GrayColorGreen(5) = 255
   RasterProc.GrayColorBlue(5) = 0

   RasterProc.ColorizeGray LEADRasterView1.Raster, RasterSrc