'Visual Basic 2010 Collecties - Inleiding Object Oriented Programming
Class Person
    Private m_Name As String
    Public Property Name() As String
        Get
            Name = m_Name
        End Get
        Set(ByVal value As String)
            m_Name = value
        End Set
    End Property
End Class
Module Client1
    Dim persons As Person()
    Dim personsCount As Integer
    Sub Main()
        Dim person1 As Person = New Person
        person1.Name = "John"
        '
        Dim person2 As Person = New Person
        person2.Name = "Jane"
        '
        Console.WriteLine(personsCount)
        '
        AddPerson(person1)
        AddPerson(person2)
        '
        Console.WriteLine(personsCount)
        '
        Console.WriteLine(persons(1).Name)
        '
        Console.ReadLine()
    End Sub
    Sub AddPerson(ByVal item As Person)
        ReDim Preserve persons(personsCount)
        persons(personsCount) = item
        personsCount += 1
    End Sub
End Module
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2011 - Alle rechten voorbehouden.