<Extension()> _
PublicFunction Where()Function Where(Of T)([Me] As IEnumerable(Of T), predicate As Func(Of T, Boolean))_
As IEnumerable(Of T)
Dim result AsNew Collection(Of T)
ForEachDim item In [Me]
If predicate(item) Then result.Add(item)
NextReturn result
End Function