SetRgnColorHSVRange example for Visual Basic

'This example sets a region corresponding to all pure green (Hue = 85)
'and colors near green (+/- 10)
'where Saturation is at least 40 and Value is at least 40

Private Sub Command2_Click()
   Dim H0 As Integer
   Dim S0 As Integer
   Dim V0 As Integer
   Dim H1 As Integer
   Dim S1 As Integer
   Dim V1 As Integer
   
   H0 = 75
   S0 = 40
   V0 = 40
   
   H1 = 95
   S1 = 255
   V1 = 255
   
   LEAD1.SetRgnColorHSVRange H0, S0, V0, H1, S1, V1, L_RGN_SET
   LEAD1.RgnFrameType = RGNFRAME_ANIMATED
End Sub