scription = "Clears all columns from the sort object."
   m_iSortIndexCount = 0
   Erase m_tSort
   m_bGridMatch = False
End Sub

Public Property Get Count() As Long
Attribute Count.VB_Description = "Gets the number of sorting columns."
   Count = m_iSortIndexCount
End Property

Public Property Get IndexOf(ByVal lCol As Long) As Long
Attribute IndexOf.VB_Description = "Gets the index of the sort data for the
 specified column, or zero if no sorting should be applied to the column."
Dim i As Long
   For i = 