主题：插入节点问题

老师，

插入节点代码 第一级有问题，但是没看出哪有问题，求老师给看看。

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode = tr.SelectedNode
If tr.Nodes.Count=0 Then
    MessageBox.Show("请先增加根节点!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Dim nm As String =nd.ParentNode.Name & "点" & Vars("numbh")
    Dim id As Integer = nd.index
    Select nd.Level
        Case 0                                                    这里有问题
            nd = tr.Nodes.Insert("新角色",id)
            tr.SelectedNode = nd
            tr.Select
            tr.BeginEdit
           
        Case Else
            nd = nd.ParentNode.Nodes.Insert(nm,id)
            Vars("numbh")=Vars("numbh")+1
            tr.SelectedNode = nd
            tr.Select
            tr.BeginEdit
    End Select
End If

老师

如何选定呢

Dim nd As WinForm.TreeNode = tr.SelectedNode
这不是选定了吗