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 Function NewEnum() As IUnknown
    NewEnum = m_Col.[_NewEnum]
End Function
 
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