Тест цвета

Private Sub Text1_Change()
Text1.ForeColor = Val("&H" & Text1.Text & "&")
End Sub

Option Explicit
Dim phi As Integer
Dim p As PictureBox
Const Pi As Double = 3.14159265
 
Private Sub Form_Activate()
    DrawGrad
End Sub
 
Private Sub Form_Load()
    Set p = Picture1
    p.ScaleMode = 1: p.AutoRedraw = True
    p.Height = p.Width
    p.Scale (-101, 101)-(101, -101)
End Sub
 
Private Sub DrawGrad()
    Dim i As Integer
     For i = 1 To 100
        For phi = 0 To 359
             p.PSet (Cos(phi * Pi / 180) * i, Sin(phi * Pi / 180) * i), HSVtoRGB(phi, 1, 1)
        Next
     Next i
End Sub
 
Private Function HSVtoRGB(ByVal hue As Double, ByVal saturation As Double, ByVal value As Double) As Long
        Dim r As Double, g As Double, b As Double, f As Double, p As Double, q As Double, t As Double
        Dim i As Integer
        If saturation = 0 Then
            HSVtoRGB = RGB(255 * value, 255 * value, 255 * value)
        End If
        hue = hue / 60
        i = CInt(Fix(hue))
        f = hue - i
        p = value * (1 - saturation)
        q = value * (1 - saturation * f)
        t = value * (1 - saturation * (1 - f))
           Select Case i
                Case 0
                    r = value: g = t: b = p
                Case 1
                    r = q: g = value: b = p
                Case 2
                    r = p: g = value: b = t
                Case 3
                    r = p: g = q: b = value
                Case 4
                    r = t: g = p: b = value
                Case 5
                    r = value: g = p: b = q
            End Select
       HSVtoRGB = RGB(255 * r, 255 * g, 255 * b)
End Function
 
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Text1.ForeColor = p.Point(X, Y)
End Sub

Private Type CHOOSECOLOR_
  lStructSize As Long
  hwndOwner As Long
  hInstance As Long
  rgbResult As Long
  lpCustColors As Long
  flags As Long
  lCustData As Long
  lpfnHook As Long
  lpTemplateName As String
End Type
 
Private Declare Function ChooseColor Lib "comdlg32.dll" Alias "ChooseColorA" (pChoosecolor As CHOOSECOLOR_) As Long
 
Private Sub Form_Load()
    Dim cc      As CHOOSECOLOR_
    Dim col(15) As Long
    
    cc.lpCustColors = VarPtr(col(0))
    cc.lStructSize = Len(cc)
    cc.hwndOwner = Me.hWnd
    
    If ChooseColor(cc) Then MsgBox "0x" & Hex(cc.rgbResult)
    
End Sub