bGreater(vItems(), tRows(lStartItem).lGridCellArrayRow,
             tRows(lStartItem + 1).lGridCellArrayRow, bIsEqual)) Then
               ' swap
               LSet tSortRow = tRows(lStartItem)
               LSet tRows(lStartItem) = tRows(lStartItem + 1)
               LSet tRows(lStartItem + 1) = tSortRow
            End If
         End If
    End If
    
End Sub

Friend Function GetLastGroupSortColumn() As Long
Dim i As Long
Dim lIndex As Long
   For i = 1 To m_iSortIndexCount
      If (m_tSort(i).Gro