VB.Net/LINQ/Reverse

All cars in reverse

<source lang="vbnet">

Public Class Car

 Public PetName As String = String.Empty
 Public Color As String = String.Empty
 Public Speed As Integer
 Public Make As String = String.Empty
 Public Overloads Overrides Function ToString() As String
   Return String.Format("Make={0}, Color={1}, Speed={2}, PetName={3}", Make, Color, Speed, PetName)
 End Function

End Class Module Program

 Sub Main()
       Dim myCars As New List(Of Car)(New Car() { _
   New Car With {.PetName = "D", .Color = "Silver", .Speed = 100, .Make = "BMW"}, _
   New Car With {.PetName = "C", .Color = "Tan", .Speed = 90, .Make = "BMW"}, _
   New Car With {.PetName = "B", .Color = "Rust", .Speed = 5, .Make = "Yugo"}, _
   New Car With {.PetName = "A", .Color = "White", .Speed = 43, .Make = "Ford"}})
   Dim subset = (From c In myCars Select c).Reverse()
   For Each c As Car In subset
     Console.WriteLine("{0} is going {1} MPH", c.PetName, c.Speed)
   Next
 End Sub

End Module

 </source>