Public Function ValueIsIn(Of T As Class)(ByVal value As T, ByVal ParamArray _
      array() As T) As Boolean
        For Each element In array
            If element Is value Then Return True
        Next
        Return False
    End Function

________
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