1 To m_iSortIndexCount
      If (m_tSort(i).Column = lCol) Then
         IndexOf = i
         Exit For
      End If
   Next i
End Property

Public Sub Remove(ByVal lIndex As Long)
Attribute Remove.VB_Description = "Removes the sort data for the specified
 index."
   If (lIndex &gt; 0) And (lIndex &lt;= m_iSortIndexCount) Then
      Dim i As Long
      For i = lIndex To m_iSortIndexCount - 1
         LSet m_tSort(i) = m_tSort(i + 1)
      Next i
      m_iSortIndexCount = m_iSortIndexCount - 1
      If (m_iSo