主题：目录树管理 要求同一级不能重复 不同级可以重复？案例如下？

AfterEditNode事件

Dim pn As object = e.Node.ParentNode
If pn Is Nothing Then pn = e.Sender
For Each nd As WinForm.TreeNode In pn.Nodes
    If  nd.Text = e.NewText Then
        messagebox.show("有重复名称","信息提示")
        e.cancel=True
        nochongfu=False
    End If
Next