Imports Infragistics.Win
Imports Infragistics.Win.Layout
Imports Infragistics.Win.UltraWinTree
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim valueList As ValueList = New ValueList()
valueList.ValueListItems.Add(0, "Account in good standing")
valueList.ValueListItems.Add(1, "30 days or more past due")
valueList.ValueListItems.Add(2, "90 days or more past due")
Dim rootColumnSet As UltraTreeColumnSet = Me.ultraTree1.ColumnSettings.RootColumnSet
rootColumnSet.Columns("AccountStatus").ValueList = valueList
End Sub