 As
             cShellSortOrderCOnstants
            ReDim Preserve m_eSortType(1 To m_iSortIndexCount) As
             cShellSortTypeConstants
        End If
        pbValidSortIndex = True
    Else
        Err.Raise vbObjectError + 1048 + 1, App.EXEName &amp; ".cShellSort",
         "Invalid sort array index."
    End If
End Function

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