这个意思?
Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView2")For Each nd As WinForm.TreeNode In trv.AllNodes If nd.FullName = "aaabbbccc" Then nd.ExpandAll End IfNext