r = (lR &gt;= 0)
      Else
         pbIsGreater = (lR &lt;= 0)
      End If
    
   Case CCLSortItemData
      lR = vSortItem.lItemData - vItem.lItemData
      bIsEqual = (lR = 0)
      If (m_tSort(iSortIndex).SortOrder = CCLOrderAscending) Then
         pbIsGreater = (lR &gt;= 0)
      Else
         pbIsGreater = (lR &lt;= 0)
      End If
      
   Case CCLSortIcon
      lR = vSortItem.iIconIndex - vItem.iIconIndex
      bIsEqual = (lR = 0)
      If (m_tSort(iSortIndex).SortOrder = CCLOrderAscending) Then