Public Class TestClass
    Private oArr As ArrayList
    Public Sub New(ByVal Array As ArrayList)
        Me.New()
        Me.oArr = Array
    End Sub
    Public Sub New()
        MyBase.New()
    End Sub
    Public Property MyArrayList() As ArrayList
        Get
            Return Me.oArr
        End Get
        Set(ByVal Value As ArrayList)
            Me.oArr = Value
        End Set
    End Property
End Class

        Dim Array As New ArrayList
        Dim oTest As New TestClass(Array)
        oTest.MyArrayList.Add("something")
        MsgBox(oTest.MyArrayList(0).ToString)