Imports Infragistics.Win.UltraWinToolbars
...
Private Sub UseaStateButtonTool_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Dim statebutton As New StateButtonTool("statebutton")
' ツールをツールバー マネージャの Tools コレクションに追加します。
Me.UltraToolbarsManager1.Tools.Add(statebutton)
Me.UltraToolbarsManager1.Toolbars(0).Tools.Add(statebutton)
statebutton.SharedProps.DisplayStyle = ToolDisplayStyle.TextOnlyAlways
statebutton.SharedProps.Caption = "Underline"
End Sub