怎样在主窗体最小化时，其他窗体同时最小化？

Question

Public Sub UnloadAllForms() Dim Form As Form For Each Form In Forms Unload Form Set Form = Nothing Next Form End Sub 

Answer 1

Private Sub Form_Resize()
    Form2.WindowState = Form1.WindowState
End Sub

Answer 2

使用 huxiangming 的代码程序会退出，不行，Mike_sun 的代码还是必须知道有哪些窗体被打开了。如果改为
For Each Form In Forms
    Form.WindowState = Form1.WindowState
Next
会出现堆栈空间溢出的错误。
有没有其他的办法？

Answer 3

我做都是用 WindowState 都行啊

Answer 4

不好意思没有看清题目，这样就可以了
Public Sub UnloadAllForms()Dim Form As FormFor Each Form In FormsForm.WindowState = vbMinimizedSet Form = NothingNext FormEnd Sub