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