' Visual Basic 2008 9.0 .NET Examples - Anonymous Types - New in Visual Basic 2008 - 9.0 : 
Class Example2
    Public Shared Sub Main()
        Dim counter1 = New With {.Value = 0, .StepValue = 1}
        Dim counter2 = New With {.Value = 0, .StepValue = 1}
        Console.WriteLine(counter1.Equals(counter1))                       ' (1)
        Console.WriteLine(counter1.Equals(counter2))                       ' (2)
        '
        Dim counter3 = New With {Key .Value = 0, .StepValue = 1}
        Dim counter4 = New With {Key .Value = 0, .StepValue = 2}
        Dim counter5 = New With {Key .Value = 10, .StepValue = 1}
        Console.WriteLine(counter3.Equals(counter4))                       ' (3)
        Console.WriteLine(counter3.Equals(counter5))
        'counter5.Value = 11                                               ' (4)
        '
        Console.WriteLine(counter1.ToString())                             ' (5)
        Console.WriteLine(counter5.ToString())
        '
        Console.ReadLine()
    End Sub
End Class
' Visit www.studyvb.com for more examples.  Copyright 2003-2008 De Wolf.