' VFP inlist equivalent ' expO1 Item where all the items will be tried to look into ' expO2 Param array for a list of items Public Function Inlist(ByVal toItem As IComparable, ByVal ParamArray toItems() As IComparable) As Boolean Return Array.IndexOf(toItems, toItem) <> -1 End Function