' Visual Basic 2008 9.0 .NET Examples - Query Methods - New in Visual Basic 2008 - 9.0 : 
Public Class Example6
    Public Shared Sub Main()
        Dim source = New Counter() {New Counter With {.Value = 10}, _
                                    New Counter With {.Value = 20}, _
                                    New Counter With {.Value = 30}}
        Dim query = source.GetWhere(Function(counter) True)
        '
        For Each counter As Counter In query                               ' (1)
            Console.WriteLine(counter.Value)
        Next
        Console.WriteLine()
        '
        source(1) = New Counter With {.Value = 200}
        '
        For Each counter As Counter In query                               ' (2)
            Console.WriteLine(counter.Value)
        Next
        '
        Console.ReadLine()
    End Sub
End Class
' Visit www.studyvb.com for more examples.  Copyright 2003-2008 De Wolf.