ublic Class ColorPicker
    Inherits ListBox
 
    Private myColors() As Byte = {27, 35, 164, 68, 78, 52, 150, 95, 74, 165, _
      108, 59, 141, 39, 70, 83, 154, 92, 142, 120, _
    145, 160, 60, 44, 128, 98, 149, 148, 43, 144, 146, 135, 136, 106, 34, 57, _
    40, 157, 29, 122, _
    36, 134, 121, 127, 163, 124, 71, 51, 77, 46, 76, 86, 90, 130, 54, 33, 94, _
    125, 166, 103, _
    85, 126, 167, 53, 80, 42, 89, 61, 96, 72, 105, 131, 53, 79, 104, 81, 147, _
    113, 155, 119, _
    115, 109, 31, 161, 99, 116, 63, 132, 158, 50, 48, 30, 93, 32, 64, 41, 139, _
    91, 67, 151, _
    100, 156, 28, 69, 153, 101, 102, 45, 143, 118, 87, 123, 49, 110, 37, 75, _
    152, 62, 114, 112, _
    38, 84, 58, 65, 111, 159, 138, 162, 140, 55, 73, 107, 129, 117, 66, 82, 88, _
    133, 47, 137, 97}
 
    Public Sub New()
        Me.DrawMode = Windows.Forms.DrawMode.OwnerDrawFixed
        If Me.Items.Count = 0 Then
            For Each b As Byte In myColors
                Me.Items.Add(b)
            Next
        End If
    End Sub
 
 
    Private Sub ColorPicker_DrawItem(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DrawItemEventArgs) Handles Me.DrawItem
        If e.Index < 0 Then Exit Sub
        Debug.Print(e.Index)
 
        Dim c As Color = Color.FromKnownColor(myColors(e.Index))
        Dim b As New SolidBrush(c)
 
        e.Graphics.DrawString(c.Name, e.Font, Brushes.Black, e.Bounds.X + 40, _
          e.Bounds.Y)
        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