Public Class EnumComboBox(Of T As Enum)
        Inherits System.Windows.Controls.ComboBox
 
 
        Private Sub EnumComboBox_Initialized(ByVal sender As Object, ByVal e As _
          System.EventArgs) Handles Me.Initialized
            'Items Füllen
 
            'Add this code either in Form’s Load event or in Form’s 
            ' Constructor, after InitializeComponent().   
            Dim enumType As Type = GetType(T)
            Dim names() As String = [Enum].GetNames(enumType)
            Dim i As Integer
 
            For i = 0 To names.Length - 1
                Me.Items.Add(names(i))
            Next
 
        End Sub
 
 
        Public Function GetSelectedEnumItem() As T
 
 
            'Retrieve value of the selected item. 
            Dim enumType As Type = GetType(T)
            Dim selection As String = DirectCast(Me.SelectedItem, String)
            Dim value As T = DirectCast([Enum].Parse(enumType, selection), T)
            Return value
        End Function
 
    End Class

__________________________________________________________________________
Ein Programmierer ist eine Maschine die Koffein in Programmcode umwandelt!
Und Bier in Bug?s

May the source code be with you.