Imports Infragistics.Win.UltraWinToolbars
...
Private Sub Add_a_StateButton_Tool_to_a_Toolbar_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Dim statebutton As New StateButtonTool("statebutton")
' Adds the tool to the Toolbar Manager's Tools collection
Me.UltraToolbarsManager1.Tools.Add(statebutton)
Me.UltraToolbarsManager1.Toolbars(0).Tools.Add(statebutton)
statebutton.SharedProps.DisplayStyle = ToolDisplayStyle.TextOnlyAlways
statebutton.SharedProps.Caption = "Underline"
End Sub