Imports Infragistics.Win
...
Private Sub AssigningaValueListtoanWinOptionSet_Load( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
' Create a new Valuelist
Dim vList As New ValueList()
' Add items using the add method
' Add(DataValue, displayText)
vList.ValueListItems.Add("Default", "Default")
vList.ValueListItems.Add("Office2000", "Office 2000")
vList.ValueListItems.Add("OfficeXP", "Office XP")
vList.ValueListItems.Add("Office2003", "Office 2003")
vList.ValueListItems.Add("VisualStudio2005", "Visual Studio 2005")
vList.ValueListItems.Add("Standard", "Standard")
vList.ValueListItems.Add("Office2007", "Office 2007")
' Set the valuelist for the optionset
Me.UltraOptionSet1.ValueList = vList
End Sub