循环删除
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")For Each nd As WinForm.TreeNode In trv.AllNodes If nd.Text = "aaa" AndAlso user.Name = "张三" Then nd.Delete End IfNext