Imports Infragistics.Win.UltraWinToolbars
...
Private Sub Manage_Settings_of_Toolbars_and_Menus_Load( _
ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Window As New PopupMenuTool("Window")
popupmenu1.SharedProps.Caption = "Window"
' Adds a Popup Menu to the Tools Collection
Me.UltraToolbarsManager1.Tools.Add(Window)
Me.UltraToolbarsManager1.Toolbars(0).Tools.Add(Window)
' Manages settings that affect all toolbars
Me.UltraToolbarsManager1.ToolbarSettings.Appearance.BackColor = Color.LightYellow
' Manages settings that affect a specific toolbar
Me.UltraToolbarsManager1.Toolbars(1).Settings.Appearance.ForeColor = Color.LawnGreen
' Manages settings that affect all menus on toolbar
Me.UltraToolbarsManager1.MenuSettings.Appearance.BackColor = Color.PapayaWhip
' Manages settings that affect a specific menu added programmatically
Window.Settings.Appearance.ForeColor = System.Drawing.Color.Purple
' Gets a reference to a Popup Menu created in the design-time customizer and
' manages settings that affect this specific Popup menu
Me.UltraToolbarsManager1.Toolbars(1).Tools("FontWeight").SharedProps. _
AppearancesSmall.Appearance.ForeColor = Color.Purple
End Sub