I am trying to add tools to the application menu dynamically at run-time.
I'm having two issues-
First- If I only add one PopupMenuTool to the Application Menu it doesn't show up. The application menu is blank. Anymore than one and they all show up. 

Second-The application menu is only showing two tools at once so I have to scroll. I have added up to five popupmenutools to the left and still it only shows two.

Here is the latest code I'm trying. I have moved crap around and tried all kinds of things.
Thanks

Dim menu As New PopupMenuTool("Menu")
Dim button1 As New ButtonTool("Button1")
Dim button2 As New ButtonTool("Button2")
Me.ToolbarsManager.Tools.AddRange(New ToolBase() {menu, button1, button2})menu.SharedProps.Caption = "Menu"
menu.Tools.AddToolRange(New String() {button1.Key, button2.Key})
button1.SharedProps.Caption = "Button 1"
button2.SharedProps.Caption = "Button 2"
Dim menu2 As New PopupMenuTool("Menu2")
Dim button21 As New ButtonTool("Button21")
Dim button22 As New ButtonTool("Button22")
Me.ToolbarsManager.Tools.AddRange(New ToolBase() {menu2, button21, button22})
menu2.SharedProps.Caption = "Menu2"
menu2.Tools.AddToolRange(New String() {button21.Key, button22.Key})button21.SharedProps.Caption = "Button 21"
button22.SharedProps.Caption = "Button 22"
Dim menu3 As New PopupMenuTool("Menu3")
Dim button31 As New ButtonTool("Button31")
Dim button32 As New ButtonTool("Button32")
Dim button33 As New ButtonTool("Button33")
Me.ToolbarsManager.Tools.AddRange(New ToolBase() {menu3, button31, button32, button33})menu3.SharedProps.Caption = "Menu3"
menu3.Tools.AddToolRange(New String() {button31.Key, button32.Key, button33.Key})button31.SharedProps.Caption = "Button 31"
button32.SharedProps.Caption = "Button 32"
button33.SharedProps.Caption = "Button 33"

Me.ToolbarsManager.Ribbon.ApplicationMenu.ToolAreaLeft.Tools.AddToolRange(New String() {menu.Key, menu2.Key, menu3.Key})