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