如何关闭当前窗口打开新窗口？ 我有1-10个菜单对应各自的窗口Form，如何实现单开新的同时关闭已打开的窗口Form？

在菜单所在的窗口写一个公共方法，该方法就是判断窗口名是否为菜单所在的窗口和将要显示的窗口，不是就关闭，form1内写公共方法的代码如下：（假设有4个窗口，分别是form1、form2、form3和form4，启动窗口和菜单所在的窗口为form1）

Public Sub ListForm(lF As Form)
  Dim a As Form
  For Each a In Forms
    If a.Name <> Me.Name And a.Name <> lF.Name Then Unload a   '只保留菜单所在的窗体和即将启动的窗体，其他关闭
  Next
End Sub

在其他被菜单启动的每个窗体的load事件里写代码如下：
Private Sub Form_Load()
  Form1.ListForm Me
End Sub

我测试了下，好像有点问题，提示Me无效使用，另外，我的Form都是子窗体。

[ 本帖最后由 yuk_yu 于 2014-6-4 09:56 编辑 ]

不会呀，代码是验证了才发的，对mdi子窗体和非子窗体都有效，肯定是你拷贝我的代码放错了位置，给个示范源码你参考吧，这都是做应用的基础，应该自己摸索就做的出来的。

谢谢，我将代码放在模块中了，怪不得会出错，再次感谢！