ot (m_colPopupTrail Is Nothing) Then
      
      Dim cTrailItem As cMenuPopupStack
      Dim ctl As vbalCommandBar
      Dim i As Long
      
      For i = m_colPopupTrail.Count To 1 Step -1
         Set cTrailItem = m_colPopupTrail(i)
         If (cTrailItem.RecursionLevel &gt;= iRecurseLevel) Then
            If (ControlFromhWnd(cTrailItem.hWnd, ctl)) Then
               ctl.fCloseMenus True
            End If
         End If
      Next i
      
   End If

End Sub

Private Sub hidePopups()

   If Not (m_