Dim m_Array(10) 
     
    Public Property Get MyArray(ByVal i As Integer) As Variant 
     MyArray = m_Array(i) 
    End Property 
     
    Public Property Let MyArray(ByVal i As Integer, ByVal vNewValue As Variant) 
     m_Array(i) = vNewValue 
    End Property 
<END>