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