Imports System
Imports System.Linq
Class Worker
Public Property Name As String
Public Property Age As Integer
End Class
Public Class Program
Public Shared Sub Main()
Dim w As Worker() = {New Worker With {
.Name = "Arthur",
.Age = 76
}, New Worker With {
.Name = "Tom",
.Age = 37
}, New Worker With {
.Name = "Chase",
.Age = 45
}, New Worker With {
.Name = "Dana",
.Age = 54
}}
Dim result = From c In w Order By c.Age Select c
For Each item As Worker In result
Console.WriteLine(String.Format("{0} {1}", item.Name, item.Age))
Next
End Sub
End Class
' run:
'
' Tom 37
' Chase 45
' Dana 54
' Arthur 76
'