VB2005でClassの配列を使う例 + 継承

'==========基底クラス===============
Public Class Person
    Private namae As String
    Private tosi As Integer
    Public Property Name() As String
        Get
            Name = namae
        End Get
        Set(ByVal value As String)
            namae = value
        End Set
    End Property

    Public Property Year() As Integer
        Get
            Year = tosi
        End Get
        Set(ByVal value As Integer)
            tosi = value
        End Set
    End Property

End Class
'==========派生クラス===============
Public Class NewPerson
    Inherits Person
    Dim syumi As String
    Public Property Hobby()
        Get
            Hobby = syumi
        End Get
        Set(ByVal value)
            syumi = value
        End Set
    End Property

End Class
'==========メイン===================
Module Module1

    Sub Main()

        Dim ap(2) As Person
        Dim anp(2) As NewPerson

        ap(0) = New Person()
        ap(1) = New Person()

        anp(0) = New NewPerson()
        anp(1) = New NewPerson()

        ap(0).Name = "suzuki isamu"
        ap(0).Year = 56

        ap(1).Name = "suzuki haruka"
        ap(1).Year = 21

        anp(0).Name = "suzuki yuko"
        anp(0).Year = 51
        anp(0).Hobby = "onnsennmeguri"
        anp(1).Name = "suzuki hirosi"
        anp(1).Year = 22
        anp(1).Hobby = "undou"


        Debug.Print("{0} {1}", ap(0).Name, ap(0).Year)
        Debug.Print("{0} {1}", ap(1).Name, ap(1).Year)

        Debug.Print("{0} {1} {2}", anp(0).Name, anp(0).Year, anp(0).Hobby)
        Debug.Print("{0} {1} {2}", anp(1).Name, anp(1).Year, anp(1).Hobby)


    End Sub

End Module