Public Enum e1
        a
        b
    End Enum
 
    <AttributeUsage(AttributeTargets.All)> _
    Public Class MyAttribute
        Inherits Attribute
        Public Sub New(ByVal name As String, ByVal types As e1)
 
        End Sub
    End Class
 
    <My("Fred", e1.a Or e1.b)> _
    Private Sub Test()
 
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist