tAsMenu) Then
                  ctl.fCloseMenus True
               End If
            End If
         End If
      Next vlhWnd
   End If
End Sub

Public Sub RepaintControls()
   If Not (m_colhWnd Is Nothing) Then
      Dim vlhWnd As Variant
      Dim ctl As vbalCommandBar
      For Each vlhWnd In m_colhWnd
         If (ControlFromhWnd(vlhWnd, ctl)) Then
            ctl.fPaintStyleChanged
         End If
      Next
   End If
End Sub

Private Sub hidePopupsAtRecurseLevel(ByVal iRecurseLevel As Long)

   If N