关于树形菜单，如何简化菜单代码，在数据表中进行菜单设置，点击节点打开相应的窗体？
Dim frm As FormFor Each frm In Forms
If frm.Name = "Form1" Then
frm.show
End If
Next
但上面的代码没法实现，“For Each frm In Forms”这句代码查资料是说只能在加载的窗体中查找，请问版主怎么实现？
回复 2楼 hmj0745
非常感谢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