 
    ' Selection sorting
    CCLSortSelected = 600
    
    ' Indentation sorting
    CCLSortIndentation = 700
    
    ' Item Data sorting
    CCLSortItemData = 800
    
End Enum

Private Const INTERNAL_FIND_GROUP_LEVEL As Long = &amp;H2000&amp;

Public Enum ECGSortOrderConstants
   CCLOrderNone = 0
   CCLOrderAscending = 1
   CCLOrderDescending = 2
End Enum

Private Type tSortInfo
   Column As Integer
   SortOrder As ECGSortOrderConstants
   SortType As ECGSortTypeConstants
   Group As Boolean
   GridCol