Rearrange Menu Items on the Menu Bar

Sub Ch6_MoveMenu()

 ' Define a variable to hold the menu to be moved

 Dim moveMenu As AcadPopupMenu

 Dim MyMenuBar As AcadMenuBar

 Set MyMenuBar = ThisDrawing.Application.menuBar

      
 ' Set moveMenu equal to the first menu displayed
      
 ' on the menu bar
      
 Set moveMenu = MyMenuBar.Item(0)
      
      
 ' Remove the first menu from the menu bar
      
 MyMenuBar.Item(0).RemoveFromMenuBar
      
      
 ' Add the menu back into the menu bar
      
 ' in the last position on the bar
      
 moveMenu.InsertInMenuBar (MyMenuBar.count)
      
End Sub