   Dim cThisTrailItem As cMenuPopupStack
   Set cThisTrailItem = m_colPopupTrail.Item("H" &amp; hWnd)
   If (Err.Number = 0) Then
      On Error GoTo 0
      
      Dim cTrailItem As cMenuPopupStack
      Dim iCount As Long
      ' Check if there are any other items at this recursion level
      For Each cTrailItem In m_colPopupTrail
         If Not (cTrailItem Is cThisTrailItem) Then
            If (cTrailItem.RecursionLevel = cThisTrailItem.RecursionLevel) Then
               iCount = iCount + 1
         