最小化的问题

[ccbbcc]

我设计了一个界面，是两个窗体拼成一个。
上面的是主窗体，点击最小化按钮，下面的窗体也最小化
代码如下：
Private Sub Form_Resize()
If WindowState = 1 Then
If Form7_8_Flag = 7 Then Form7.WindowState = 1
If Form7_8_Flag = 8 Then Form8.WindowState = 1
If Form7_8_Flag = 9 Then Form9.WindowState = 1
If Form7_8_Flag = 11 Then Form11.WindowState = 1
End If
If WindowState = 0 Then
If Form7_8_Flag = 7 Then Form7.WindowState = 0
If Form7_8_Flag = 8 Then Form8.WindowState = 0
If Form7_8_Flag = 9 Then Form9.WindowState = 0
If Form7_8_Flag = 11 Then Form11.WindowState = 0
End If

End Sub
设断点，运行可以。全速运行，下面的窗体不最小化。
请问高手，哪里的问题？谢谢！

[脆皮大雪糕]

每行之间加个 Doevents 试试