Private Sub ultraTree1_AfterSelect(ByVal sender As Object, ByVal e As SelectEventArgs) Handles ultraTree1.AfterSelect
Dim node As UltraTreeNode = e.NewSelections(0)
'選択したノードのキーをチェックして決定します。
Console.WriteLine(node.Key)
'Text プロパティをチェックして決定します。
Console.WriteLine(node.Text)
'ノードのレベルを決定します。ルート ノードはレベル 0 です。’ルートの子はレベル 1 というようになります。
Console.WriteLine(node.Level)
End Sub