Imports Infragistics.Win.UltraWinToolbars ... Private Sub Add_a_Popup_Menu_to_a_Toolbar_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load Dim popupmenutool As New PopupMenuTool("popupmenutool") ' Adds the tool to the Toolbar Manager's Tools collection Me.UltraToolbarsManager1.Tools.Add(popupmenutool) Me.UltraToolbarsManager1.Toolbars.AddToolbar("MAIN") Me.UltraToolbarsManager1.Toolbars(0).Tools.Add(popupmenutool) popupmenutool.SharedProps.DisplayStyle = ToolDisplayStyle.ImageAndText ' Specifies a segmented Popup menu popupmenutool.DropDownArrowStyle = DropDownArrowStyle.Segmented ' Specifies the Popup Style as Menu popupmenutool.Settings.PopupStyle = PopupStyle.Menu ' Specifies the Popup menu to be torn away and floated. popupmenutool.AllowTearaway = True Dim textbox As New TextBoxTool("textbox") Me.UltraToolbarsManager1.Tools.Add(textbox) textbox.Text = "TextBox1" ' Adds the TextBox to the Popup menu popupmenutool.Tools.Add(textbox) Dim button As New ButtonTool("button") ' Adds a button tool the the Tools collection Me.UltraToolbarsManager1.Tools.Add(button) button.SharedProps.AppearancesSmall.Appearance.BackColor = Color.RosyBrown button.SharedProps.Caption = "Button1" button.SharedProps.DisplayStyle = ToolDisplayStyle.TextOnlyAlways ' Adds the Button to the Popup menu popupmenutool.Tools.Add(button) End Sub