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