Imports Infragistics.Win.UltraWinToolbars ... Private Sub DisplayaCheckboxforStateButtonTool_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load ' 状態ボタン ツールとメニュー ツールを作成します。 Dim statebuttontool1 As New StateButtonTool("Align") Dim menu1 As New PopupMenuTool("Layout") ' 各ツールにキャプションを設定します。 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) ' 状態ボタン ツールをメニューに追加します。 menu1.Tools.Add(statebuttontool1) ' メニュー ツールをメイン メニュー バーに追加します。 Me.UltraToolbarsManager1.Toolbars(0).Tools.Add(menu1) ' イメージではなくチェックボックスを表示するために表示スタイルを設定します。 statebuttontool1.MenuDisplayStyle = StateButtonMenuDisplayStyle.DisplayCheckmark End Sub