VBA For each - loop order

Question

In VBA, it's possible to loop through shapes. For example:

For Each shp In slide.Shapes
 shp.top=0
Next

The question is, which parameter is being used to determine the order of the loop and how can this parameter be set?

Answer 1

edited after OP's clarification about his need of looping through shapes from the highest on the lowest

you can use SortedList object use Shape Top property as the SortedList key and the Shape object itself as its corresponding value:

Sub Main()
    Dim shp As Shape
    Dim j As Long

    With CreateObject("System.Collections.SortedList")
        For Each shp In slide.Shapes
            .Add shp.Top, shp
        Next

        For j = 0 To .Count - 1 'list shapes from the highest to the lowest
            MsgBox .GetByIndex(j).Name & " - " & .getkey(j)
        Next

    End With
End Sub