Редактирование значений в TreeView

Public Class Form11
 
    Private Sub ShowLabelTextBox()
        Dim x, y As Int32
        x = CInt(TreeView1.Bounds.Location.X) + CInt(TreeView1.SelectedNode.Bounds.Location.X)
        y = CInt(TreeView1.Bounds.Location.Y) + CInt(TreeView1.SelectedNode.Bounds.Location.Y)
        TextBox1.Text = TreeView1.SelectedNode.Text
        TextBox1.SetBounds(x, y, TextBox1.Width, 8)
        TextBox1.Show()
        TextBox1.Focus()
 
        TextBox1.SelectAll()
 
    End Sub
 
    Private Sub TextBox1_LostFocus(sender As Object, e As EventArgs) Handles TextBox1.LostFocus
        TextBox1.Hide()
    End Sub
 
    Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
        If e.KeyCode = Keys.Enter Then
            TreeView1.SelectedNode.Text = TextBox1.Text
            TreeView1.Focus()
        ElseIf e.KeyCode = Keys.Escape Then
            TreeView1.Focus()
        End If
    End Sub
    Private Sub Form11_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        TreeView1.Nodes.Add("User1").Nodes.AddRange({New TreeNode("First Name: User1"), New TreeNode("Display Name: i.ivanov"), New TreeNode("Description:Free"), New TreeNode("E-mail:i.ivanov@gmail.com")})
 
        For Each RootNode As TreeNode In TreeView1.Nodes
            For Each ChildNode As TreeNode In RootNode.Nodes
                ChildNode.ContextMenuStrip = ContextMenuStrip1
            Next
        Next
    End Sub
 
    Private Sub EditToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EditToolStripMenuItem.Click
        ShowLabelTextBox()
    End Sub
 
    Private Sub TreeView1_NodeMouseClick(sender As Object, e As TreeNodeMouseClickEventArgs) Handles TreeView1.NodeMouseClick
        If e.Button = MouseButtons.Right Then
            TreeView1.SelectedNode = e.Node
        End If
    End Sub
End Class