Imports Infragistics.Win ... Private Sub AssigningaValueListtoanWinOptionSet_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load ' 新しい値リストを作成します。 Dim vList As New ValueList() ' Add メソッドを使用して項目を追加します ' 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") ' オプションセットに値リストを設定します。 Me.UltraOptionSet1.ValueList = vList End Sub