Imports Infragistics.Win.UltraWinTree
...
' ノードを宣言します。
Dim nodeA As UltraTreeNode
Dim nodeB As UltraTreeNode
' 2 つのノードを WinTree に追加します。
nodeA = Me.ultraTree1.Nodes.Add("nodeA", "NodeA")
nodeB = Me.ultraTree1.Nodes.Add("nodeB", "NodeB")
' 新しく追加されたノードを展開します。
nodeA.Expanded = True
’ 子ノードを Node A に追加します。
nodeA.Nodes.Add("childNodeofA", "ChildNodeA1")
' Node C を WinTree に追加します。
Me.ultraTree1.Nodes.Add("nodeC", "NodeC")
' キーを使用して Node C への参照を取得します。
Dim nodeC As UltraTreeNode = Me.ultraTree1.GetNodeByKey("nodeC")
’ 子ノードを NodeC に追加します。
nodeC.Nodes.Add("childNodeofC", "ChildNodeC1")
' NodeB を削除します。
Me.ultraTree1.Nodes.Remove(nodeB)