怎么响应窗体右上角的最小化的事件？前三个来回答的给分

Question

前三个来回答的给分

Answer 1

Option ExplicitPrivate Sub Command1_Click()
  Me.WindowState = 1
End Sub

Answer 2

private sub form_Resize()
    if me.windowstate=1 then
      '最小化了，放你要处理的代码
    end if
end sub

Answer 3

private sub form_Resize()    if me.windowstate=1 then
      msgbox "min event!"
    end ifend sub

Answer 4

Option ExplicitPrivate Sub Command1_Click()
  Me.WindowState = 1
End Sub

Answer 5

用hook耗住，然后截WM_NCLBUTTONDOWN消息，要判断点击坐标。