Public Class Form1
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
        For i As Integer = 28 To 167
            ComboBox1.Items.Add(Color.FromKnownColor(CType(i, KnownColor)).Name)
        Next
        ComboBox1.DrawMode = DrawMode.OwnerDrawFixed
        ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
    End Sub
 
    Private Sub ComboBox1_DrawItem(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DrawItemEventArgs) Handles ComboBox1.DrawItem
        e.DrawBackground()
        If e.Index >= 0 Then
            Using b1 As New SolidBrush(Color.FromKnownColor(CType(e.Index + 28, _
              KnownColor))), _
                  b2 As New SolidBrush(e.ForeColor)
                e.Graphics.FillRectangle(b1, e.Bounds.X + 2, e.Bounds.Y + 2, _
                  23, 12)
                e.Graphics.DrawRectangle(Pens.Black, e.Bounds.X + 1, e.Bounds.Y _
                + 1, 24, 12)
                e.Graphics.DrawString(ComboBox1.Items.Item(e.Index).ToString, _
                e.Font, b2, e.Bounds.X + 28, e.Bounds.Y)
            End Using
        End If
    End Sub
End Class