Representa el metódo que define un conjunto de creiterios y determina el objeto que cumple con esos criterios. Implementación ' Mi colección autos = New List(Of auto) autos.items.add(New auto("Chevrolet","1997","sedan")) autos.items.add(New auto("Toyota","2008","sedan")) autos.items.add(New auto("Suzuki","2002","sedan")) ' obtener el suzuki Dim autoSuzuki as New auto autoSuzuki = autos.Find(BuscarAuto("Suzuki")) Console.Writeline(string.Format("Marca:",autoSuzuki.Marca)) Console.Writeline(string.Format("Año:",autoSuzuki.Agno)) Console.Writeline(string.Format("Modelo:",autoSuzuki.Modelo)) ' Método Private Shared Function BuscarAuto(ByVal pMarca As String) As Predicate(Of auto) Return Function(auxAuto As auto) auxAuto.Marca = pMarca End Function Ver MSDN