Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub btnAdd_Click(sender As System.Object, e As System.EventArgs) _
      Handles btnAdd.Click
        Dim N As String
        N = txtAdd.Text
        If txtAdd.Text = String.Empty Then Return
 
        If trvTree.SelectedNode Is Nothing Then
            trvTree.Nodes.Add(N, N)
        Else
            trvTree.SelectedNode.Nodes.Add(N, N)
        End If
        txtAdd.Text = String.Empty
        trvTree.ExpandAll()
    End Sub
 
    Private Sub trvTree_AfterSelect(sender As Object, e As TreeViewEventArgs) _
      Handles trvTree.AfterSelect
        txt_Selected_Node.Text = e.Node.Text
    End Sub