ConvertToColoredGray example for Visual Basic

   Const RedFact = 300
   Const GreenFact = 590
   Const BlueFact = 110
   Const RedGrayFact = 500
   Const GreenGrayFact = 300
   Const BlueGrayFact = 200
   Dim RasterProc As New LEADRasterProcess
   RasterProc.ConvertToColoredGray LEADRasterView1.Raster, RedFact, GreenFact, BlueFact, RedGrayFact, GreenGrayFact, BlueGrayFact