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