nt In m_colButtons
         btnInt.Dispose
      Next
      Set m_colButtons = Nothing
      releaseCachedControlInstances
            
      Debug.Print "GAME OVER"
   End If
End Sub

Public Function BarCount() As Long
   BarCount = m_colCommandBars.Count
End Function

Public Sub BarRemove(ByVal sKey As String)
   If CollectionContains(m_colCommandBars, sKey) Then
      Dim barInt As cCommandBarInt
      Set barInt = m_colCommandBars(sKey)
      barInt.Clear
      m_colCommandBars.Remove sKey
   Else
     