ValueList を使用した ComboBox ツールの追加

Imports Infragistics.Win.UltraWinToolbars
Imports Infragistics.Win
...
Private Sub AddingaComboBoxToolwithaValueList_Load(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles MyBase.Load
	Dim comboboxtool As New ComboBoxTool("comboboxtool")
	' ComboBox に表示される valuelist を作成します。
	Dim valuelist1 As New ValueList()
	' ValueList に関連する項目を作成します。
	Dim item1 As New ValueListItem()
	Dim item2 As New ValueListItem()
	Dim item3 As New ValueListItem()
	' 項目のテキストを設定します。
	item1.DisplayText = "Classical"
	item2.DisplayText = "Rock"
	item3.DisplayText = "Metal"
	' 項目を ValueList に追加します。
	valuelist1.ValueListItems.Add(item1)
	valuelist1.ValueListItems.Add(item2)
	valuelist1.ValueListItems.Add(item3)
	' ComboBox の ValueList に、新しく作成した ValueList を設定します。
	comboboxtool.ValueList = valuelist1
	' ツールをツール コレクションに追加します。
	Me.UltraToolbarsManager1.Tools.Add(comboboxtool)
	' ツールをツールバーの Tools コレクションに追加します。
	Me.UltraToolbarsManager1.Toolbars(0).Tools.Add(comboboxtool)
End Sub

using Infragistics.Win.UltraWinToolbars;
using Infragistics.Win;
...
private void AddingaComboBoxToolwithaValueList_Load(object sender, System.EventArgs e)
{
	ComboBoxTool comboboxtool = new ComboBoxTool("comboboxtool");
	// ComboBox に表示される valuelist を作成します。
	ValueList valuelist1 = new ValueList();
	// ValueList に関連する項目を作成します。
	ValueListItem  item1 = new ValueListItem();
	ValueListItem item2 = new ValueListItem();
	ValueListItem item3 = new ValueListItem();
	// 項目のテキストを設定します。
	item1.DisplayText = "Classical";
	item2.DisplayText = "Rock";
	item3.DisplayText = "Metal";
	// 項目を ValueList に追加します。
	valuelist1.ValueListItems.Add(item1);
	valuelist1.ValueListItems.Add(item2);
	valuelist1.ValueListItems.Add(item3);
	// ComboBox の ValueList に、新しく作成した ValueList を設定します。
	comboboxtool.ValueList = valuelist1;
	// ツールをツール コレクションに追加します。
	this.ultraToolbarsManager1.Tools.Add(comboboxtool);
	// ツールをツールバーの Tools コレクションに追加します。
	this.ultraToolbarsManager1.Toolbars[0].Tools.Add(comboboxtool);
}