Wnd As Long)
   m_colhWnd.Remove "H" &amp; hWnd
   ' untag control
   TagControl hWnd, Nothing, False
   If (m_colhWnd.Count = 0) Then
      
      On Error Resume Next
      SetInMenuLoop False, 0
      
      ' JIC
      DetachMouseHook 0
      
      DetachKeyboardHook 0

      Set m_colhWnd = Nothing
      
      Dim barInt As cCommandBarInt
      For Each barInt In m_colCommandBars
         barInt.Dispose
      Next
      Set m_colCommandBars = Nothing
      Dim btnInt As cButtonInt
      For Each btnI