Public Class ColorPicker
    Inherits ComboBox
 
    Private myColorNames() As String = {"Transparent", "Black", "White", _
      "DimGray", "Gray", "DarkGray", "Silver", "LightGray", "Gainsboro", _
      "WhiteSmoke", "Maroon", "DarkRed", "Red", _
         "Brown", "Firebrick", "IndianRed", "Snow", "LightCoral", "RosyBrown", _
         "MistyRose", "Salomon", "Tomato", "DarkSalmon", "Coral", "OrangeRed", _
         "LightSalmon", "Sienna", "SeaShell", _
    "Chocolate", "SaddleBrown", "SandyBrown", "PeachPuff", "Peru", "Linen", _
    "Bisque", "DarkOrange", "BurlyWood", "Tan", _
"AntiqueWhite", "NavajoWhite", "BlanchedAlmond", "PapayaWhip", "Moccasin", _
"Orange", "Wheat", "OldLace", "FloralWhite", "DarkGoldenrod", _
"Goldenrod", "Cornsilk", "Gold", "Khaki", "LemonChiffon", "PaleGoldenrod", _
"DarkKhaki", "Beige", "LightGoldenrodYellow", "Olive", "Yellow", _
"LightYellow", "Ivory", "OliveDrab", "YellowGreen", "DarkGreen", "GreenYellow", _
"Chartreuse", "LawnGreen", "DarkSeaGreen", "LightGreen", _
"ForestGreen", "LimeGreen", "PaleGreen", "DarkGreen", "Green", "Lime", _
"Honeydew", "SeaGreen", "MediumSeaGreen", _
"SpringGreen", "MintCream", "MediumSpringGreen", "MediumAquamarine", _
"Aquamarine", "Turquoise", _
"LightSeaGreen", "MediumTurquoise", "DarkSlateGray", "PaleTurquoise", "Teal", _
"DarkCyan", "Cyan", "Aqua", "LightCyan", _
"Azure", "DarkTurquoise", "CadetBlue", "PowderBlue", "LightBlue", _
"DeepSkyBlue", "SkyBlue", "LightSkyBlue", "SteelBlue", _
"AliceBlue", "DodgerBlue", "SlateGray", "LightSlateGray", "LightSteelBlue", _
"CornflowerBlue", "RoyalBlue", "MidnightBlue", _
"Lavender", "Navy", "DarkBlue", "MediumBlue", "Blue", "GhostWhite", _
"SlateBlue", "DarkSlateBlue", "MediumSlateBlue", "MediumPurple", _
"BlueViolet", "Indigo", "DarkOrchid", "DarkViolet", "MediumOrchid", "Thistle", _
"Plum", "Violet", "Purple", "DarkMagenta", _
"Fuchsia", "Magenta", "Orchid", "MediumVioletRed", "DeepPink", "HotPink", _
"LavenderBlush", "PaleVioletRed", "Crimson", "Pink", "LightPink"}
 
    Public Sub New()
        Me.DrawMode = Windows.Forms.DrawMode.OwnerDrawFixed
        Me.Items.Clear()
        If Me.DesignMode = False Then
            For Each text As String In myColorNames
                Me.Items.Add(text)
            Next
        End If
    End Sub
    Private Sub ColorPicker_DrawItem(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DrawItemEventArgs) Handles Me.DrawItem
        e.Graphics.DrawString(Me.Items(e.Index).ToString, e.Font, _
        Brushes.Black, e.Bounds.X + 40, e.Bounds.Y)
        Dim c As Color = Color.FromName(Me.Items(e.Index).ToString)
        Dim b As New SolidBrush(c)
 
        e.Graphics.FillRectangle(b, e.Bounds.X + 1, e.Bounds.Y + 1, 30, _
          e.Bounds.Height - 3)
        e.Graphics.DrawRectangle(Pens.Black, e.Bounds.X + 1, e.Bounds.Y + 1, _
        30, e.Bounds.Height - 3)
    End Sub
End Class