主题：如何让目录树原来可见节点位置不变

如果单纯是 EnsureVisible，你可以用一个变量记录当前的。

如果是全部的展开信息都需要还原，刷新之前，保存好各个节点的展开信息，可以用字典暂时存放。刷新后，循环每一个节点，根据字典，重新设置一次。

参考

Dim trv = e.Form.Controls("TreeView1").basecontrol
msgbox(trv.TopNode.name)

不是可以直接赋值？

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim btrv = trv.basecontrol
btrv.TopNode = btrv.Nodes("基础数据")

需要窗口显示出来代码才生效。

代码要写到timertick事件，延时一两秒再设置即可。