Dim frm As Form
For Each frm In Forms
If frm.Name = "Form1"   Then  
   frm.show
End If
Next
但上面的代码没法实现，“For Each frm In Forms”这句代码查资料是说只能在加载的窗体中查找，请问版主怎么实现？

非常感谢hmj0745的支持！
我测试了一下OK,达到预期效果。
另外，节点名称赋值给FrmName ,这里改了一下，使用Key作为FrmName，因为程序中窗体是英文名，与节点Node.Text不一致
修改后源码如下：
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
    On Error GoTo 111
    Dim FrmName As String, TmpForm As Form
    TreeView1.SingleSel = True
    FrmName = Node.Key '//把节点名称赋值给FrmName
    Set TmpForm = Forms.Add(FrmName)
    TmpForm.Show 0
111:
    Exit Sub
End Sub