&gt; m_iSortIndexCount) Then
         m_iSortIndexCount = iSortIndex
         ReDim Preserve m_tSort(1 To m_iSortIndexCount) As tSortInfo
      End If
      pbValidSortIndex = True
   Else
      gErr 503, "Invalid sort array index."
   End If
   
End Function

Friend Sub SortItems( _
        ByRef vItems() As tGridCell, _
        ByRef tRows() As tRowPosition, _
        ByVal lStartItem As Long, _
        ByVal lItems As Long _
    )
Dim iSwapIndex As Long
Dim iIncrement As Long
Dim iMainLoop As Long
Dim iS