关闭所有Form

Question

在一个主控界面上想通过一个按钮关闭所有已经打开的其他Form。除了以下方法,还有其他更简单的方法吗?
Private Sub Command1_Click()
Unload Form2
Unload Form3
Unload Form4
Unload Form5
......
....End Sub

Answer 1

Option ExplicitPrivate Sub Command1_Click()
Form2.Show
Form3.Show
End SubPrivate Sub Command2_Click()
Dim myForm As Form
For Each myForm In Forms
    Unload myForm
Next
End Sub

Answer 2

Option ExplicitPrivate Sub Command1_Click()
Form2.Show
Form3.Show
End SubPrivate Sub Command2_Click()
Dim myForm As Form
For Each myForm In Forms
    If myForm.Name <> "Form1" Then
        Unload myForm
    End If
Next
End Sub

Answer 3

private sub command1_click()
  end 
end sub

Answer 4

同意lihonggen0(李洪根,用.NET，标准答案来了) 说法