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