主题：目录树的闪烁为什么控制不了(上传了例子)

 试试这样

winName = e.Node.Name
If Forms.contains(e.Node.Name)
    If Forms(e.Node.Name).opened = False Then Forms(e.Node.Name).open
    If Forms(e.Node.Name).Controls.Contains("Tr_Flow") = True Then
        Functions.Execute("Refresh_Cords")
    End If
    Dim tab As object = Forms(e.node.name).panel.parent.parent
    tab.Selectedtab = Forms(e.node.name).panel.parent
End If

 计算完毕，再切换过去也闪？分开手动操作。如果这样也闪，那没办法。

 你给的例子，实在看不到怎么闪了。