'Для примера генерим случайный цвет
      Hv = RND(360)
      Tmp = RND(101) : Sv = Tmp / 100
      Tmp = RND(101) : Vv = Tmp / 100
'Преобразуем HSV в RGB
      Call HSV_RGB(Hv , Sv , Vv)

Sub HSV_RGB(H as Word , S as Single , V as Single)
   Local Hi as Word
   Local f as Single , p as Single , q as Single , t as Single
   Local Ra As Single , Ga As Single , Ba As Single   
   Hi = H \ 60
   Hi = Hi mod 6
   f = H / 60
   p = H \ 60
   f = f - Int(p)
   p = 1 - S
   p = p * V
   q = 1 - f
   q = q * S
   q = q * V
   t = 1 - f
   t = t * S
   t = 1 - t
   t = t * V
   if Hi = 0 then
      Ra = V : Ga = t : Ba = p
   End If
   if Hi = 1 then
      Ra = q : Ga = V : Ba = p
   End If
   if Hi = 2 then
      Ra = p : Ga = V : Ba = t
   End If
   if Hi = 3 then
      Ra = p : Ga = q : Ba = V
   End If
   if Hi = 4 then
      Ra = t : Ga = p : Ba = V
   End If
   if Hi = 5 then
      Ra = V : Ga = p : Ba = q
   End If
   Ra = Ra * 255 : Tred = Int(Ra)
   Ga = Ga * 255 : Tgreen = Int(Ga)
   Ba = Ba * 255 : Tblue = Int(Ba)
End Sub