Application VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Application
  4. Adding a menu
Sub AddNewMenu()
    HelpIndex = CommandBars(1).Controls("Help").Index
    Set NewMenu = CommandBars(1).Controls.Add _
      (Type:=msoControlPopup, _
       Before:=HelpIndex, _
       Temporary:=True)
    NewMenu.Caption = "&rntsoft"
End Sub