' Visual Basic 2008 9.0 .NET Examples - Collections - Introduction - Object Oriented Programming : 
Class Persons
    Private m_Items As Person()
    Default Public ReadOnly Property Item(ByVal index As Integer) As Person
        Get                                                                ' (1)
            Item = m_Items(index)
        End Get
    End Property
    Private m_Count As Integer
    Public ReadOnly Property Count() As Integer
        Get
            Count = m_Count
        End Get
    End Property
    Public Sub Add(ByVal item As Person)
        ReDim Preserve m_Items(Count)
        m_Items(Count) = item
        m_Count += 1
    End Sub
End Class
Module Client2
    Sub Main()
        Dim person1 As Person = New Person
        person1.Name = "John"
        '
        Dim person2 As Person = New Person
        person2.Name = "Jane"
        '
        Dim persons1 As Persons = New Persons
        '
        Console.WriteLine(persons1.Count)
        '
        persons1.Add(person1)
        persons1.Add(person2)
        '
        Console.WriteLine(persons1.Count)
        '
        Console.WriteLine(persons1(1).Name)                                ' (2)
        Console.WriteLine(persons1.Item(1).Name)                           ' (3)
        '
        Console.ReadLine()
    End Sub
End Module
Module Client3
    Sub Main()
        Dim person1 As Person = New Person
        person1.Name = "John"
        '
        Dim persons1 As Persons = New Persons
        persons1.Add(person1)
    End Sub
End Module
' Visit www.studyvb.com for more examples.  Copyright 2003-2008 De Wolf.