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