WPF

Class Test
    Public Enum Something As Integer
        <Description("Something happended")> Something
        <Description("Nothing happended")> Nothing_
    End Enum

    Private pEnumer As Something = -1
    Public Property Enumer() As Something
        Get
            Return pEnumer
        End Get
        Set(ByVal value As Something)
            pEnumer = value
        End Set
    End Property
End Class

Public Class EnumComboBox
        Inherits ComboBox

        Private _EnumList As New List(Of EnumerationMember)

        Private pEnumItemsSorce As [Enum]
        Public Property EnumItemsSorce() As [Enum]
            Get
                Return pEnumItemsSorce
            End Get
            Set(ByVal value As [Enum])
                pEnumItemsSorce = value
                Me.ItemsSource = [Enum].GetValues(value.GetType)

            End Set
        End Property


        Public Function GetEnumItemSource(obj As DependencyObject) As [Enum]
            Return EnumItemsSorce
        End Function

        Public Sub SetEnumItemSource(obj As DependencyObject, value As [Enum])
            EnumItemsSorce = value
        End Sub

        ' Using a DependencyProperty as the backing store for Enum.  This enables animation, styling, binding, etc...
        Public Shared ReadOnly EnumItemSourceProperty As DependencyProperty = DependencyProperty.RegisterAttached("EnumItemSource", GetType([Enum]), GetType(EnumComboBox), New PropertyMetadata(Nothing, AddressOf OnEnumItemSourceChanged))

        Private Shared Sub OnEnumItemSourceChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
            Dim control = TryCast(sender, ItemsControl)

            If control IsNot Nothing Then
                If e.NewValue IsNot Nothing Then
                    Dim _enum = [Enum].GetValues(TryCast(e.NewValue, Type))
                    control.ItemsSource = _enum
                End If
            End If
        End Sub

        Protected Overrides Sub OnItemContainerStyleSelectorChanged(oldItemContainerStyleSelector As System.Windows.Controls.StyleSelector, newItemContainerStyleSelector As System.Windows.Controls.StyleSelector)
            MyBase.OnItemContainerStyleSelectorChanged(oldItemContainerStyleSelector, newItemContainerStyleSelector)
        End Sub

        Protected Overrides Sub OnSelectionChanged(e As System.Windows.Controls.SelectionChangedEventArgs)
            MyBase.OnSelectionChanged(e)
        End Sub

        Private _enumType As Type

        Private Sub GetValues(ByVal E As [Enum])
            Dim result As New List(Of String)

            Dim _enumType As Type
            _enumType = E.GetType
            Dim enumValues = [Enum].GetValues(_enumType)

            Dim f = (From enumValue In enumValues Select New EnumerationMember() With { _
              .Value = enumValue, _
              .Description = enumValue.GetDescription(enumValue) _
            }).ToList

            _EnumList = f
        End Sub

        Private Function GetDescription(enumValue As Object) As String
            Dim descriptionAttribute = TryCast(_enumType.GetField(enumValue.ToString()).GetCustomAttributes(GetType(ComponentModel.DescriptionAttribute), False).FirstOrDefault(), ComponentModel.DescriptionAttribute)
            Return If(descriptionAttribute IsNot Nothing, descriptionAttribute.Description, enumValue.ToString())
        End Function

        Public Class EnumerationMember
            Public Property Description() As String
                Get
                    Return m_Description
                End Get
                Set(value As String)
                    m_Description = value
                End Set
            End Property
            Private m_Description As String
            Public Property Value() As Object
                Get
                    Return m_Value
                End Get
                Set(value As Object)
                    m_Value = value
                End Set
            End Property
            Private m_Value As Object
        End Class

    End Class

<RichTextBox Height="476" ScrollViewer.HorizontalScrollBarVisibility="Auto"  ScrollViewer.VerticalScrollBarVisibility="Auto" HorizontalAlignment="Left" Margin="8,36,0,0" Name="dutRtx" VerticalAlignment="Top" Width="Auto" IsReadOnly="True" FontSize="11" FontFamily="Segoe UI" Cursor="Arrow">
                    <RichTextBox.Resources>
                        <Style TargetType="{x:Type Paragraph}">
                            <Setter Property="Margin" Value="4pt"/>
                            <Setter Property="LineHeight" Value="6.3pt"/>
                            <Setter Property="FontSize" Value="9pt" />
                            <Setter Property="LineStackingStrategy" Value="BlockLineHeight" />
                        </Style>
                    </RichTextBox.Resources>
                   <FlowDocument>
                            <Paragraph FontSize="9pt" LineHeight="4pt" LineStackingStrategy="BlockLineHeight"></Paragraph>
                        <Paragraph>

                        </Paragraph>
                    </FlowDocument>

                    </RichTextBox>