Imports Infragistics.Win Imports Infragistics.Win.UltraWinToolbars ... Private Sub UseaListTool_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load Dim popupmenutool As New PopupMenuTool("popupmenutool") popupmenutool.SharedProps.Caption = "PopupMenuTool1" Dim listtool As New ListTool("listtool") ' ツールをツールバー マネージャの Tools コレクションに追加します。 Me.UltraToolbarsManager1.Tools.Add(popupmenutool) Me.UltraToolbarsManager1.Toolbars(0).Tools.Add(popupmenutool) Me.UltraToolbarsManager1.Tools.Add(listtool) Me.UltraToolbarsManager1.Toolbars(0).Tools.Add(listtool) ' 項目をリストに追加します。 listtool.ListToolItems.Add("Classical", "Classical") listtool.ListToolItems.Add("Rock", "Rock") listtool.ListToolItems.Add("Metal", "Metal") ' リスト ツールをポップアップ メニューに追加します。 popupmenutool.Tools.AddTool("listtool") ' メニューのサイド ストリップを指定します。 popupmenutool.Settings.IsSideStripVisible = DefaultableBoolean.True popupmenutool.Settings.SideStripAppearance.BackColor = Color.Blue End Sub