o m_iSortIndexCount
               LSet m_tSort(j - 1) = m_tSort(j)
            Next j
            m_iSortIndexCount = m_iSortIndexCount - 1
            ReDim Preserve m_tSort(1 To m_iSortIndexCount) As tSortInfo
         Else
            Erase m_tSort
            m_iSortIndexCount = 0
            Exit For
         End If
      End If
   Next i
   m_bGridMatch = False ' maybe...
End Sub

Public Property Get LastSortIndex() As Integer
Attribute LastSortIndex.VB_Description = "Deprecated."
    LastSortIndex =