Насыщенность цвета

Option Explicit
 
Private Sub Command1_Click()
    Dim R As Integer, G As Integer, B As Integer, D As Integer, X As Integer, Y As Integer
     R = 224
     G = 222
     B = 253
     D = 100 ' диаметр звезды
     X = 0   ' координаты центра звезды
     Y = 50  ' координаты центра звезды
     DrawStar R, G, B, D, X, Y
End Sub
 
Private Sub DrawStar(ByVal Red As Integer, ByVal Green As Integer, ByVal Blue As Integer, ByVal Diametr As Integer, ByVal X As Integer, ByVal Y As Integer)
    Dim m As Integer, i As Single, j As Integer
    Dim R As Single, G As Single, B As Single
    R = Red: G = Green: B = Blue
    For i = 0 To 6.28 Step 0.01
         R = Red: G = Green: B = Blue
         For j = 1 To Diametr
              R = R - 100 / Diametr: If R < 0 Then R = 0
              G = G - 100 / Diametr: If G < 0 Then G = 0
              B = B - 100 / Diametr: If B < 0 Then B = 0
              PSet (Cos(i) * j + X, Sin(i) * j + Y), RGB(R, G, B)
         Next j
    Next i
End Sub
 
Private Sub Form_Load()
    Me.Height = Me.Width
    Me.AutoRedraw = True: Me.ScaleMode = 3: Me.Scale (-200, 200)-(200, -200)
End Sub

Option Explicit
 
Private Sub Command1_Click()
    Dim R As Integer, G As Integer, B As Integer, D As Integer, X As Integer, Y As Integer
     R = 200
     G = 200
     B = 256
     D = 130  ' диаметр звезды
     X = 0   ' координаты центра звезды
     Y = 50  ' координаты центра звезды
     DrawStar R, G, B, D, X, Y
End Sub
 
Private Sub DrawStar(ByVal Red As Integer, ByVal Green As Integer, ByVal Blue As Integer, ByVal Diametr As Integer, ByVal X As Integer, ByVal Y As Integer)
    Dim R As Single, G As Single, B As Single, dR As Single, dG As Single, dB As Single
    Dim i As Single, j As Integer, m As Single
    dR = Red / Diametr: dG = Green / Diametr: dB = Blue / Diametr
    R = Red / 5: G = Green / 5: B = Blue / 5
    For i = Diametr To 0 Step -1
              R = R + dR: G = G + dG: B = B + dB
              Circle (X, Y), i, RGB(R, G, B)
    Next i
End Sub
 
Private Sub Form_Load()
    Me.Height = Me.Width
     Me.AutoRedraw = True: Me.ScaleMode = 3: DrawWidth = 3: Me.Scale (-200, 200)-(200, -200)
End Sub

Dim m As Integer, j As Integer
    Dim R As Single, B As Single
    Dim s As Single
    Dim color As Long, hue As Integer, sat As Integer, lum As Integer
    Static n
      R = среднее(1, 1): G = среднее(1, 2): B = среднее(1, 3)
     color = RGB(R, G, B)
 
    For s = 0 To 6.28 Step 0.01
         n = 240
         For j = 1 To радиус(3)
                ColorRGBToHLS color, hue, lum, sat
                n = n - 60 / j
                sat = n
                lum = 220 - 70 * j / радиус(3)
                color = ColorHLSToRGB(hue, lum, sat)
              Frm1_Редактор.Pct_Результат.PSet (Cos(s) * j + столбец, Sin(s) * j + строка), color '
         Next j
         n = 0
    Next s