   End If
    
    Case CCLSortFontIndex
        lR = vSortItem.iFntIndex - vItem.iFntIndex
        bIsEqual = (lR = 0)
        If (m_eSortOrder(iSortIndex) = CCLOrderAscending) Then
            pbIsGreater = (lR &gt;= 0)
        Else
            pbIsGreater = (lR &lt;= 0)
        End If
    
    Case CCLSortIndentation
        lR = vSortItem.lIndent - vItem.lIndent
        bIsEqual = (lR = 0)
        If (m_eSortOrder(iSortIndex) = CCLOrderAscending) Then
            pbIsGreater = (lR &gt;= 0)
        Else
