

   End If
End Property

Public Property Get HideInfrequentlyUsed() As Boolean
   HideInfrequentlyUsed = m_hideInfrequentlyUsed
End Property
Public Property Let HideInfrequentlyUsed(ByVal bState As Boolean)
   m_hideInfrequentlyUsed = bState
End Property
Public Property Get ShowingInfrequentlyUsed() As Boolean
   If (m_hideInfrequentlyUsed) Then
      ShowingInfrequentlyUsed = m_showingInfrequentlyUsed
   Else
      ShowingInfrequentlyUsed = True
   End If
End Property
Public Sub ShowInfrequentlyUsed()
   