m_showingInfrequentlyUsed = True
End Sub
Public Property Get ActiveMenu() As Long
   ActiveMenu = m_hWndActiveMenu
End Property
Public Property Let ActiveMenu(ByVal hWnd As Long)
   m_hWndActiveMenu = hWnd
End Property
Public Property Get menuInitiator() As Long
   menuInitiator = m_hWndMenuLoopInitControl
End Property
Public Property Get InMenuLoop() As Boolean
   InMenuLoop = m_inMenuLoop
End Property
Public Sub SetInMenuLoop(ByVal bState As Boolean, ByVal hWndControl As Long)
Dim vlhWnd As Variant
Dim ct