Imports Infragistics.Win.UltraWinToolbars Imports Infragistics.Win ... Private Sub Add_a_ComboBox_Tool_with_a_ValueList_Load( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load Dim comboboxtool As New ComboBoxTool("comboboxtool") ' Creates a valuelist to be displayed in the ComboBox Dim valuelist1 As New ValueList() ' Creates items associated to the ValueList Dim item1 As New ValueListItem() Dim item2 As New ValueListItem() Dim item3 As New ValueListItem() ' Sets text for the Items item1.DisplayText = "Classical" item2.DisplayText = "Rock" item3.DisplayText = "Metal" ' Adds the items to the ValueList valuelist1.ValueListItems.Add(item1) valuelist1.ValueListItems.Add(item2) valuelist1.ValueListItems.Add(item3) ' Sets the ValueList of the ComboBox to the new ValueList created comboboxtool.ValueList = valuelist1 ' Add Tool to tools collection Me.UltraToolbarsManager1.Tools.Add(comboboxtool) ' Add the tool to the toolbar's tools collection Me.UltraToolbarsManager1.Toolbars(0).Tools.Add(comboboxtool) End Sub