How to change the order of the ToolStripTabItems in WinForms RibbonControlAdv?

void ChangeToolStripOrder()
{
     ArrayList toolStripTabitems = new ArrayList();
     foreach (Control ctrl in this.Controls)
     {
         if (ctrl is RibbonControlAdv)
         {
             RibbonControlAdv ribbonctrl = ctrl as RibbonControlAdv;
             foreach (object item in ribbonctrl.Header.MainItems)
             {
                 if (item is ToolStripTabItem)
                 {
                    toolStripTabitems.Add(item);
                 }
             }
             int iterator = ribbonctrl.Header.MainItems.Count;
             while (iterator > 0)
             {
                 ribbonctrl.Header.MainItems.RemoveAt(0);
                 iterator = ribbonctrl.Header.MainItems.Count;
             }
             for (iterator = toolStripTabitems.Count-1; iterator >= 0; iterator--)
             {
                 ribbonctrl.Header.AddMainItem(toolStripTabitems[iterator] as ToolStripTabItem);
             }
             break;
         }
     }
}

Private Sub ChangeToolStripOrder()
     Dim toolStripTabitems As New ArrayList()
     For Each ctrl As Control In Me.Controls
         If TypeOf ctrl Is RibbonControlAdv Then
            Dim ribbonctrl As RibbonControlAdv = TryCast(ctrl, RibbonControlAdv)
            For Each item As Object In ribbonctrl.Header.MainItems
                If TypeOf item Is ToolStripTabItem Then
                   toolStripTabitems.Add(item)
                End If
            Next
            Dim iterator As Integer = ribbonctrl.Header.MainItems.Count
            While iterator > 0
                 ribbonctrl.Header.MainItems.RemoveAt(0)
                    iterator = ribbonctrl.Header.MainItems.Count
            End While
            For iterator = toolStripTabitems.Count - 1 To 0 Step -1
                 ribbonctrl.Header.AddMainItem(TryCast(toolStripTabitems(iterator), ToolStripTabItem))
            Next
         Exit For
       End If
   Next
End Sub