opupStack
   Dim ctl As vbalCommandBar
   For Each cTrailItem In m_colPopupTrail
      If (cTrailItem.RecursionLevel &lt; iRecursionLevel) Then
         If ControlFromhWnd(cTrailItem.hWnd, ctl) Then
            ctl.Enabled = False
         End If
         If ControlFromhWnd(cTrailItem.hWndSource, ctl) Then
            ctl.Enabled = False
         End If
      End If
   Next
      
   m_iRecurseLevel = iRecursionLevel
End Sub
Public Sub RemovePopupFromTrail(ByVal hWnd As Long)
   
   On Error Resume Next
   