vlhWnd
         If (ControlFromhWnd(lhWnd, ctl)) Then
            ctl.fInUse = False
         End If
      Next vlhWnd
   End If
End Sub

Public Sub HidePopupsFromOtherControls(ByVal hWndExclude As Long)
   If Not (m_colPopups Is Nothing) Then
      Dim vlhWnd As Variant
      Dim lhWnd As Long
      Dim ctl As vbalCommandBar
      For Each vlhWnd In m_colhWnd
         lhWnd = vlhWnd
         If Not (lhWnd = hWndExclude) Then
            If (ControlFromhWnd(lhWnd, ctl)) Then
               If Not (ctl.fIsSe