Imports System
Class User
Public Property Name As String
Public Property age As Integer
End Class
Public Class Program
Public Shared Sub Main()
Dim users As User() = {New User With {
.Name = "James T. Kirk",
.age = 51
}, New User With {
.Name = "Spock",
.age = 68
}, New User With {
.Name = "Leonard McCoy",
.age = 46
}, New User With {
.Name = "Beam me up, Scotty",
.age = 82
}}
For Each user As User In users
Console.WriteLine(String.Format("{0}: {1}", user.Name, user.age))
Next
End Sub
End Class
' run:
'
' James T. Kirk: 51
' Spock: 68
' Leonard McCoy: 46
' Beam me up, Scotty: 82
'