如上，楼主要学会举一反三，而且这个窗体HIDE与你窗体是否已经SHOW是无关的，所以大小通吃

[[it] 本帖最后由 我是菜鸟哦 于 2008-10-6 10:14 编辑 [/it]]

看看是不是你要的效果

主窗体里面
Unload Me.ActiveForm
能后加载你需要的窗体FROM.SHOW

多谢你。你和《我是菜鸟哦》对我帮助很大，思路也有扩展。多谢你们了！！！

我在电脑里运行过你的附件，已经解决了我的难题。多谢你了。
在这里，我只想问一句：如果 Show 加个参数，为何不能退出。

要先退出当前以模式方式打开的窗体

好的。谢谢你！！！

先  for each  关闭所有子窗 再 打开要打开的 不就行？

可以了。

Option Explicit

Private Sub Command1_Click()
  Dim frm As Form
 
    For Each frm In Forms
    If Left(frm.Name, 6) = "frmSub" Then
      Unload frm
    End If
  Next
  frmsub1.Show
End Sub

Private Sub Command2_Click()
  Dim frm As Form

  For Each frm In Forms
    If Left(frm.Name, 6) = "frmSub" Then
      Unload frm
    End If
  Next
  frmsub2.Show
End Sub

Private Sub Command3_Click()
  Dim frm As Form

  For Each frm In Forms
    If Left(frm.Name, 6) = "frmSub" Then
      Unload frm
    End If
  Next
  frmsub3.Show
End Sub

为什么会报frmsub未定义变量，，等待。。。。