Public Class Event_Wahl
    Inherits System.EventArgs
 
    Public Structure WAHL
        'Einen Wert für die Auswahl des verwendeten Typs
        'und für jeden im Enum deklarierten Wert ein Variable deklarieren
        'Es soll immer nur die Value_WAHL..-Variable mit Werten gefüllt werden,
        'welche bei Selected_Wahl eingstellt wurde.
        'Die andere Value_WAHL..-Variable dann einfach unbenutzt lassen.
        Dim Selected_Wahl           As ENUM_SELECTED_WAHL
        Dim Value_WAHL_Zahl_Integer As Integer
        Dim Value_WAHL_String       As String
 
        Public Enum ENUM_SELECTED_WAHL As Integer
            WAHL_Zahl_Integer           = 0
            WAHL_String                 = 1
        End Enum
 
    End Structure
 
    Dim Value_WAHL As WAHL
 
    Sub New(ByVal Wahl_IN  As WAHL)
        Value_WAHL = Wahl_IN
    End Sub
 
    ReadOnly Property Value_Wahl As WAHL
        Get
            return Value_WAHL
        End Get
    End Property
 
End Class