如何在vb.net中将类分配给数组

Public Class Person
    Public Property Name As String
    Public Property Age As Integer
End Class

Dim persons(2) As Person

Dim person1 As New Person()
person1.Name = "John"
person1.Age = 30

persons(0) = person1

Dim person2 As New Person()
person2.Name = "Jane"
person2.Age = 25

persons(1) = person2

Console.WriteLine("Name: " & persons(0).Name)
Console.WriteLine("Age: " & persons(0).Age)

Public Class Person
    Public Property Name As String
    Public Property Age As Integer
End Class

Module Module1

    Sub Main()
        Dim persons(2) As Person

        Dim person1 As New Person()
        person1.Name = "John"
        person1.Age = 30

        persons(0) = person1

        Dim person2 As New Person()
        person2.Name = "Jane"
        person2.Age = 25

        persons(1) = person2

        Console.WriteLine("Name: " & persons(0).Name)
        Console.WriteLine("Age: " & persons(0).Age)

        Console.ReadLine()
    End Sub

End Module