Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click
        Dim node As New System.Windows.Forms.TreeNode
        If IsNothing(currNode.Parent) = True Then
            node.Text = "new event"
            currNode.Nodes.Add(node)
            node.BeginEdit()
            currNode = node
        End If
    End Sub

 Private Sub TreeView1_AfterLabelEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.NodeLabelEditEventArgs) Handles TreeView1.AfterLabelEdit
        eventDesc.Text = e.Label
        EventID.Enabled = True
        TreeView1.SelectedNode = currNode
  
  End Sub