VTable example for Visual Basic

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

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