Binaryworld - CompareList - Compare an argument with a list of values ... [ VB.net -> Language ]

' Return the position of the argument in a list of values
' or zero if the argument isn't included in the list
' It works for both regular values and for objects
'
' This handy function can often save you a lengthy Select Case
' statement or a complex series of If...ElseIf blocks
'
' Example: check whether a string is a valid continent name
'   If CompareList(aString, "America", "Europe", "Asia", "Africa",
' "Australia") > 0 Then MsgBox "OK"

Function CompareList(ByVal Arg As Object, ByVal ParamArray Values() As Object) _
  As Integer
  Return Array.IndexOf(Values, Arg) + 1
End Function