s Boolean
Private m_inMenuLoop As Boolean
Private m_colDisabled As Collection
Private m_hWndActiveMenu As Long
Private m_hWndMenuLoopInitControl As Long
Private m_bHighlightDisabledItems As Boolean

Private m_colPopupTrail As Collection
Private m_iRecurseLevel As Long

Public Sub AddPopupToTrail(ByVal hWnd As Long, ByVal hWndSource As Long, ByVal
 bShownAsPopup As Boolean, ByVal bPoppedOverPopup As Boolean)
   
   If (m_colPopupTrail Is Nothing) Then
      Set m_colPopupTrail = New Collection
   End If
   D