Private m_Col As Collection
 
Private Sub Class_Initialize()
    Set m_Col = New Collection
End Sub
 
Private Sub Class_Terminate()
    Set m_Col = Nothing
End Sub
 
Public Sub Add(vItem As Variant, Optional Key As Variant, Optional Before As _
  Variant, Optional After As Variant)
    m_Col.Add vItem, Key, Before, After
End Sub
 
Public Function Count() As Long
    Count = m_Col.Count
End Function
 
Public Function Item(nIndex As Variant) As Variant
    Item = m_Col.Item(nIndex)
End Function
 
Public Sub Remove(nIndex As Variant)
   m_Col.Remove (nIndex)
End Sub
 
Public Sub Clear()
    Set m_Col = Nothing
    Set m_Col = New Collection
End Sub
 
Public Property Let CloneFrom(obj As Collection)
    Dim v As Variant
 
    Clear
    For Each v In obj
       m_Col.Add v
    Next
End Property

Private mCol As NewCol
Private thiscol As Collection
 
Private Sub test()
    Dim v As Variant
 
    Set mCol = New NewCol
    Set thiscol = New Collection
 
    thiscol.Add "Test"
    thiscol.Add "Test2"
    thiscol.Add "Test3"
 
    mCol.CloneFrom = thiscol
    Debug.Print mCol.Count
 
    thiscol.Add "Test4"
    thiscol.Add "Test5"
 
    Debug.Print mCol.Count
 
End Sub