tl.Enabled = True
               End If
            End If
         Next
      End If
      
      ' Remove item from trail
      m_colPopupTrail.Remove "H" &amp; hWnd
      
   End If
   On Error GoTo 0
   
   If (m_colPopupTrail.Count = 0) Then
      Set m_colPopupTrail = Nothing
   End If
   
End Sub

Public Property Get HighlightDisabledItems() As Boolean
   HighlightDisabledItems = m_bHighlightDisabledItems
End Property
Public Property Let HighlightDisabledItems(ByVal bState As Boolean)
   m_bHighlight