t() As Long
   ButtonCount = m_colButtons.Count
End Function
Public Sub ButtonRemove(ByVal sKey As String)
   If CollectionContains(m_colButtons, sKey) Then
      Dim btn As cButtonInt
      Set btn = m_colButtons(sKey)
      btn.Deleted
      m_colButtons.Remove sKey
   Else
      gErr 3
   End If
End Sub
Public Property Get ButtonItem(index As Variant) As cButtonInt
   Set ButtonItem = m_colButtons.Item(index)
End Property
Public Function ButtonAdd(ByVal sKey As String) As cButtonInt
   If CollectionConta