如何关闭当前窗口打开新窗口

在菜单所在的窗口写一个公共方法，该方法就是判断窗口名是否为菜单所在的窗口和将要显示的窗口，不是就关闭，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

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