GrayScaleToMultitone Example for Visual Basic

   Dim RasterProc As New LEADRasterProcess
   Dim i As Integer
   
   RasterProc.Grayscale LEADRasterView1.Raster, 8
   RasterProc.MultitoneColors(0) = RGB(255, 255, 0)
   RasterProc.MultitoneColors(1) = RGB(255, 0, 0)

   RasterProc.GrayScaleToMultitone LEADRasterView1.Raster, DUOTONE, LINEAR, DT_MIX