Public Class Person
    Private m_name As String = "���ݒ�"
    Private m_age As Integer = 0
    Public Property Name() As String
        Get
            Return m_name
        End Get
        Set(ByVal Value As String)
            m_name = Value
        End Set
    End Property

    Public Property Age() As Integer
        Get
            Return m_age
        End Get
        Set(ByVal Value As Integer)
            m_age = Value
        End Set
    End Property
End Class

Public Class Persons
    Public persons(2) As Person

    Public Sub SetPersons(ByVal person1 As Person, ByVal person2 As Person, ByVal person3 As Person)
        persons(0) = person1
        persons(1) = person2
        persons(2) = person3
    End Sub

    Public Sub Dump()
        For Each person As Person In persons
            Trace.WriteLine(person.Name)
            Trace.WriteLine(person.Age)
        Next
    End Sub
End Class