VTable example for Visual Basic

'This example remaps the "value" of each color to one half its original

Private Sub Command8_Click()
Dim i As Integer

For i = 0 To 255
LEAD1.VTable(i) = i \ 2
Next i
LEAD1.RemapHue False, False, False, True
End Sub