STable example for Visual Basic

'This example remaps the saturation of each color to one half its original
Private Sub Command87_Click()
Dim i As Integer
Dim RasterProc As New LEADRasterProcess

For i = 0 To 255
RasterProc.STable (i) = i \ 2
Next I
RasterProc.RemapHue LEADRasterView1.raster, False, False, True, False
End Sub