Me.ColorComboBox1.Items.AddRange(New Object() {"ActiveBorder", "ActiveCaption", _
  "ActiveCaptionText", "AppWorkspace", "Control"})

Imports System
Imports System.Drawing
Imports System.Windows.Forms
Imports System.ComponentModel
 
Public Class ColorComboBox
    Inherits System.Windows.Forms.ComboBox
 
    Private mLoaded As Boolean
 
    ''' <summary>
    ''' liest alle Farben aus der KnownColor Enum des .NET Frameworks aus und 
    ' fügt Sie der Combo Itemsauflistung hinzu
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub m_LoadKnownColor()
        If mLoaded Then Exit Sub
        Debug.Print("m_LoadKnownColor")
 
        Dim kc As New KnownColor
        Dim n As String = ""
 
        Me.Items.Clear()
        'strColor = System.Enum.GetNames(kc.GetType())
        'Testhalber nur 4 Einträge (0 ist nicht belegt)
        For i As Integer = 0 To 5 'strColor.Length - 1
            n = System.Enum.GetName(kc.GetType, i)
            If Not n Is Nothing AndAlso n <> "" Then Me.Items.Add(n)
        Next i
 
        'For i As Integer = 0 To strColor.Length - 1
        '    Me.Items.Add(strColor(i))
        '    'Me.Items.AddRange(strColor)
        'Next
        mLoaded = True
    End Sub
 
    Public Sub New()
        MyBase.New()
        Me.DrawMode = Windows.Forms.DrawMode.OwnerDrawFixed
        Me.DropDownStyle = ComboBoxStyle.DropDownList
        If Not DesignMode Then m_LoadKnownColor()
    End Sub
End Class