Public Class Form1
    Inherits System.Windows.Forms.Form
 
    Dim MenuCount As Integer
 
    Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As _
      System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
 
    End Sub
 
    Private Sub create_menu(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click, MenuItem4.Click
 
        Dim newNode As TreeNode = New TreeNode("Menü" + MenuCount.ToString())
        TreeView1.Nodes.Add(newNode)
        TreeView1.SelectedNode = newNode
        MenuCount += 1
 
    End Sub
 
    Private Sub create_submenu(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click, MenuItem5.Click
 
        Dim newNode As TreeNode
 
        With TreeView1
            newNode = New TreeNode("Untermenü")
            .SelectedNode.Nodes.Add(newNode)
        End With
        MenuCount += 1
 
 
 
    End Sub
 
    Private Sub delete(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button3.Click, MenuItem6.Click
        Dim key As Integer
        Dim ctl As Control
        Dim i As Integer
        Dim lctl As Control
        Try
            Dim del As TreeNode
            del = TreeView1.SelectedNode
            key = CInt(TreeView1.SelectedNode.Tag)
            del.Remove()
        Catch ex As Exception
        End Try
        MenuCount -= 1
    End Sub
 
    Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MenuItem7.Click
        TreeView1.LabelEdit = True
        TreeView1.SelectedNode.BeginEdit()
    End Sub
End Class