Método Predicado delegado

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