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