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