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