Public Class coll
        Private _al As New ArrayList
        Public Sub Add(ByVal item As String)
            _al.Add(item)
        End Sub
        Default Public Property Item(ByVal index As Integer)
            Get
                Return _al(index)
            End Get
            Set(ByVal Value)
                _al(index) = Value
            End Set
        End Property
    End Class
 
    Private Sub Test
 
        Dim myColl As New coll
 
        myColl.Add("abc")
        myColl.Add("mno")
        myColl.Add("pqr")
 
        Dim s As String
        s = myColl.Item(1)
 
        myColl(2) = "yyy"
        s = myColl(2)
 
    End Sub