Imports Infragistics.Win.UltraWinToolbars
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' Note: The keys used for tools in this example correspond to tools
' that have already been created
' Add the exit button to the footer area of the application menu.
Me.UltraToolbarsManager1.Ribbon.ApplicationMenu.FooterToolbar.Tools.AddTool("Exit")
' Add the open button to the left side of the application menu.
Me.UltraToolbarsManager1.Ribbon.ApplicationMenu.ToolAreaLeft.Tools.AddTool("Open")
' Add a button corresponding to a recently used document to the
' right side of the application menu
Me.UltraToolbarsManager1.Ribbon.ApplicationMenu.ToolAreaRight.Tools.AddTool("RecentDoc1")
End Sub