Private Structure TS_Felder
        Public X As Integer
        Public Y As Integer
        Public Name As String
    End Structure
 
    Private TopToolstripList As New List(Of TS_Felder)
 
    Private Sub TopToolstripLocations()
        TopToolstripList.Clear()
        Dim TsCount = ToolStripContainer1.TopToolStripPanel.Controls.Count - 1
        For i As Integer = 0 To TsCount
            Dim o = ToolStripContainer1.TopToolStripPanel.Controls(i)
            If TypeOf o Is ToolStrip Then
                Dim TS = DirectCast(o, ToolStrip)
                Dim TSn = New TS_Felder With {.X = TS.Location.X, .Y = _
                  TS.Location.Y, .Name = TS.Name}
                TopToolstripList.Add(TSn)
            End If
        Next
        Debug.Print("vor Sortierung:")
        For i = 0 To TopToolstripList.Count - 1
            Debug.Print(String.Concat("Pos.Y: ", TopToolstripList.Item(i).Y, "" & _
              "| ", "Pos.X: ", TopToolstripList.Item(i).X, " | ", "Name: ", _
              TopToolstripList.Item(i).Name))
        Next
 
        TopToolstripList.Sort(Function(x, y) x.Y.CompareTo(y.Y))
 
        Debug.Print("nach Sortierung:")
        For i = 0 To TopToolstripList.Count - 1
            Debug.Print(String.Concat("Pos.Y: ", TopToolstripList.Item(i).Y, "" & _
              "| ", "Pos.X: ", TopToolstripList.Item(i).X, " | ", "Name: ", _
              TopToolstripList.Item(i).Name))
        Next
    End Sub

Danke für die Hilfe

Gruß Christian