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