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)