Public Enum TestEnum
    Wert1
    Wert2
    Wert3
    Wert4
End Enum
 
Private m_Enum As Type = Nothing
Private m_Value As Int32 = Nothing
 
Public Property [Enum]() As Type
  Get
    Return m_Enum
  End Get
  Set(ByVal value As Type)
    If Not value.BaseType Is GetType(System.Enum) Then
       Throw New ArgumentException("System.Enum erforderlich.")
    End If
    m_Enum = value
  End Set
End Property

Function GetValue() As Int32
  Return CType(m_enum,m_Value)
End Function