Imports System
Structure Person
Public Name As String
Public Age As Integer
End Structure
Public Class Program
Public Shared Sub Main()
Dim people As Person() = New Person(2) {}
people(0) = New Person With {
.Name = "Robert",
.Age = 46
}
people(1) = New Person With {
.Name = "Jennifer",
.Age = 36
}
people(2) = New Person With {
.Name = "Emma",
.Age = 51
}
For Each person In people
Console.WriteLine($"Name: {person.Name}, Age: {person.Age}")
Next
End Sub
End Class
' run:
'
' Name: Robert, Age: 46
' Name: Jennifer, Age: 36
' Name: Emma, Age: 51
'