GrayScaleToDuotone Example for Visual Basic

Dim RasterProc As New LEADRasterProcess
Dim i As Integer
RasterProc.Grayscale LEADRasterView1.Raster, 8
For i = 0 To 255
   RasterProc.GrayScaleRed(i) = i
   RasterProc.GrayScaleGreen(i) = 100
   RasterProc.GrayScaleBlue(i) = 20
Next i
   RasterProc.GrayScaleToDuotone LEADRasterView1.Raster, RGB(0, 0, 0), 1