Public Event Test1( ByVal Wert As Integer)
Public Event Test2( ByVal Wert As String)

    Enum _Wahl
        [Zahl]
        [String]
    End Enum
    Dim VWahl As _Wahl
 
    Public Property Wahl() As _Wahl
        Get
            Return VWahl
        End Get
        Set(ByVal Value As _Wahl)
            VWahl = Value
        End Set
    End Property

Sub Test1( ByVal Wert As Integer)
 
End Sub

Sub Test2( ByVal Wert As String)
 
End Sub

#Const einstellung = 0
#If einstellung = 0 Then
    Public Event Test1( ByVal Wert As Integer)
#Else
    Public Event Test2( ByVal Wert As String)
#End If