
          pbIsGreater = (lR &gt;= 0)
      Else
          pbIsGreater = (lR &lt;= 0)
      End If
    
   Case CCLSortExtraIcon
      lR = vSortItem.lExtraIconIndex - vItem.lExtraIconIndex
      bIsEqual = (lR = 0)
      If (m_tSort(iSortIndex).SortOrder = CCLOrderAscending) Then
         pbIsGreater = (lR &gt;= 0)
      Else
         pbIsGreater = (lR &lt;= 0)
      End If
    
    Case CCLSortForeColor
        lR = vSortItem.oForeColor - vItem.oForeColor
        bIsEqual = (vR = 0)
        If (m_tSort(iS