' Create an Infragistics ValueList Dim theValueList As Infragistics.Win.ValueList = _ New Infragistics.Win.ValueList() ' Populate the ValueList with names of known, system colors. Dim color As String For Each color In [Enum].GetNames(GetType(System.Drawing.KnownColor)) theValueList.ValueListItems.Add(color) Next color ' Create a new ContainedInListCondition object and set ' the list to the ValueList created above. Use the ' display text rather than the data value to determine ' if there is a match. Dim listCondition As Infragistics.Win.ContainedInListCondition = _ New Infragistics.Win.ContainedInListCondition( _ theValueList, _ Infragistics.Win.ListItemMatchMode.DisplayText) ' Retrieve the ValidationSettings object associated with ' the WinTextEditor control. Dim vs As Infragistics.Win.Misc.ValidationSettings = _ Me.UltraValidator1.GetValidationSettings(Me.UltraTextEditor1) ' Set WinTextEditor's condition to the ' ContainedInListCondition created above. vs.Condition = listCondition