Option Compare Database
Option Explicit

Public Function CS(Col1 As Integer, Col2 As Integer) As String
If Col1 = Col2 Then CS = String( 100 , ChrW( 9608 )) Else CS =  ""
End Function

Private Function Color(R As Integer, G As Integer, B As Integer) As Long
Color = CLng(R) + CLng(G) * 256  + CLng(B) *  65536 
End Function

Sub RGBForm()
'   Writen by Vasyl Motchulsky, Ukraine
'   For free use for SQL.RU members
Dim Frm As Form
Dim tBox As TextBox
Dim R As Integer, G As Integer, B As Integer
Dim ColorNumber As Integer
Dim FormName As String
Set Frm = CreateForm()
Set tBox = CreateControl(Frm.Name, acTextBox, , "Color ", " Color ", 500 ,  50 )
With tBox
    .Width =  300 
    .SpecialEffect =  0 
    .BackStyle =  0 
End With
For R =  0  To  254  Step  127 
    For G =  0  To  254  Step  127 
        For B =  0  To  254  Step  127 
            ColorNumber = ColorNumber +  1 
            Set tBox = CreateControl(Frm.Name, acTextBox, , " ", " =CS([Color], " & ColorNumber & " ) ", 2000 ,  50 )
            With tBox
                .BackStyle =  0 
                .SpecialEffect =  0 
                .ForeColor = Color(R, G, B)
                .Locked = True
                .Enabled = False
            End With
        Next B
    Next G
Next R
With Frm
    .Section( 0 ).Height =  300 
    .DefaultView =  1 
    .RecordSource = "select a.n + b.n* 3  + c.n* 9  +  1  as Color from  " & _
        " (select  0  as n union select  1  union select  2 ) as a, " & _
        " (select  0  as n union select  1  union select  2 ) as b, " & _
        " (select  0  as n union select  1  union select  2 ) as c order by Color"
    .Width =  3000 
    FormName = .Name
    .AutoResize = False
End With
DoCmd.Close acForm, FormName, acSaveYes
DoCmd.OpenForm FormName
DoCmd.MoveSize , ,  5000 
End Sub