简单的问题：如何得到窗体最小化时的事件？40分也不少

Question

Private Sub Form_Resize()
If Me.WindowState = 1 Then
    me.hide
End If
End Sub

Answer 1

我给分！可是当执行Me.Show 的时候
上面的语句也执行，那可怎办？

Answer 2

citybird的说法完全正确的。
你试试看吧。

Answer 3

如果show时也执行那就加一个变量.
private bShow as boolean....
bshow=true
me.show
bshow=falsePrivate Sub Form_Resize()
If Me.WindowState = 1 and not bshow Then
    me.hide
End If
End Sub