Imports Infragistics.Win.UltraWinToolbars ... Private Sub Display_a_Checkbox_for_the_StateButton_Tool_Load( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load ' Create a statebutton tool and a menu tool Dim statebuttontool1 As New StateButtonTool("Align") Dim menu1 As New PopupMenuTool("Layout") ' Set the caption for each tool menu1.SharedProps.Caption = "Layout" statebuttontool1.SharedProps.Caption = "Align" ' Add the tools to the Tool collection Me.UltraToolbarsManager1.Tools.Add(statebuttontool1) Me.UltraToolbarsManager1.Tools.Add(menu1) ' Add the statebutton tool to the menu menu1.Tools.Add(statebuttontool1) ' Add the menu tool to the main menu bar Me.UltraToolbarsManager1.Toolbars(0).Tools.Add(menu1) ' Set the display style to display a checkbox rather than an image statebuttontool1.MenuDisplayStyle = _ StateButtonMenuDisplayStyle.DisplayCheckmark End Sub