Wertüberprüfen in ParamArray

Hallo,
hat wer eine Idee das anders zu machen? Also ohne Strict On auszumachen?

Public Shared Function IsIn(ByVal Val1 As Object, ByVal ParamArray Val2() As Object) As Boolean
 Dim i As Integer

 If UBound(Val2) = 0 And IsArray(Val2(0)) Then
 i = LBound(CType(Val2(0), Array))
 IsIn = False
 While i 

MfG Dominik

Hallo

Also ich habe zwar seit Ewigkeiten nicht mehr mit Visual Basic gearbeitet aber ich weis wie ich so etwas mit .NET generell lösen würde. Also hab ich mal versucht das ganze in VB zu schreiben!

Public Shared Function IsIn(Of T)(ByVal obj As T, ByVal ParamArray list() As T) As Boolean
 Dim i As Integer = Array.IndexOf(list, obj)
 If i \>= 0 Then IsIn = True Else IsIn = False
End Function

MfG IGnow

Vielen Dank, werd ich gleich mal ausprobieren!

MfG Dominik