' Visual Basic 2008 9.0 .NET Examples - Query Methods - New in Visual Basic 2008 - 9.0 : 
Public Class Example4
    Public Shared Sub Main()
        Dim source = New Object() {1, "two", "3"c, "four", 5.0}
        Dim predicate1 As Func(Of String, Boolean) = _
                                               Function(text) text.Contains("o")
        Dim predicate2 As Func(Of String, Boolean) = _
                                             Function(text) text.StartsWith("f")
        Dim words As IEnumerable(Of String)
        words = source.OfType(Of String).Where(predicate1).Where(predicate2)
        For Each word As String In words
            Console.WriteLine(word)
        Next
        '
        Console.ReadLine()
    End Sub
End Class
' Visit www.studyvb.com for more examples.  Copyright 2003-2008 De Wolf.