Imports Infragistics.Win.UltraWinToolbars ... Private Sub Replace_a_Controls_Context_Menu_with_a_PopupMenu_Tool_Load( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load ' Creates a new popup menu and some buttons Dim FontWeight As New PopupMenuTool("FontWeight") Dim Bold As New ButtonTool("Bold") Dim Underline As New ButtonTool("Underline") ' Adds the menu and the buttons to the tools collection Me.UltraToolbarsManager1.Tools.Add(FontWeight) Me.UltraToolbarsManager1.Tools.Add(Bold) Me.UltraToolbarsManager1.Tools.Add(Underline) ' Adds the button tools to the menu FontWeight.Tools.Add(Bold) FontWeight.Tools.Add(Underline) ' Sets the caption to be displayed for the button tools Bold.SharedProps.Caption = "Bold" Underline.SharedProps.Caption = "Underline" ' Sets the context menu for the TextBox control to the popup menu tool created Me.UltraToolbarsManager1.SetContextMenuUltra(Me.UltraTextEditor1, "FontWeight") End Sub