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 Button2.Click
Me.ultraTree1.ViewStyle = ViewStyle.FreeForm
Dim columnSet As UltraTreeColumnSet = Me.ultraTree1.ColumnSettings.ColumnSets.Add("myColumnSet")
Me.ultraTree1.ActiveNode.Override.ColumnSet = columnSet
End Sub