Private Sub ultraTree1_AfterSelect(ByVal sender As Object, ByVal e As SelectEventArgs) Handles ultraTree1.AfterSelect
Dim node As UltraTreeNode = e.NewSelections(0)
'Determine by checking the key of the selected node
Console.WriteLine(node.Key)
'Determine by checking the Text property
Console.WriteLine(node.Text)
'Determine the Level of the node; Root nodes are level 0. Children of 'the root are Level 1, etc.
Console.WriteLine(node.Level)
End Sub