   Count = m_colAddresses.Count

End Property

Public Property Get Item(ByVal Index As Variant) As Address
Attribute Item.VB_UserMemId = 0

   Set Item = m_colAddresses.Item(Index)

End Property

Public Function Add() As Address

   Dim oAdd As New Address

   m_colAddresses.Add oAdd
   Set Add = oAdd

End Function

</pre><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>&#160;</p></td><td class="rightbar" valign="top" bgcolor="#C2BEB1">
<!-- No right bar content currently defined -->
</td