STable example for Visual Basic

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

Private Sub Command6_Click()
Dim i As Integer

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