RGBfromHSV example for Visual Basic

'Takes an HSV, displays the HSV components, and displays the RGB components

Private Sub HSVtoRGB(h As Integer, s As Integer, v As Integer)
Dim cr As OLE_COLOR
Dim red As Integer
Dim green As Integer
Dim blue As Integer

cr = LEAD1.RGBfromHSV(h, s, v)
red = cr And &HFF
green = (cr \ &H100) And &HFF
blue = cr \ &H10000
MsgBox "HSV (" & h & "," & s & "," & v & ") is RGB(" & red & "," & green & "," & blue & ")"
End Sub