vb6.0 点击最大化最小化和关闭（有上角的）触发什么事件

QueryUnload 事件是在任一个卸载之前在所有窗体中发生，而 Unload 是在每个窗体卸载时发生。form_queryunload 事件发生在 form_unload 前面，其参数 UnloadMode 可指示出是用何种方式来请求关闭窗体的。

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
'捕获到关闭窗体的请求
Select Case UnloadMode
Case vbFormControlMenu
'点击窗体关闭按钮
'cancel=true 可以取消关闭窗体动作
Case Else
'其它方式引起窗体关闭，还有其它常数，这里不列举了
End Select
End Sub

通过窗体大小变化时判断窗体状态来确定哪个按钮被按下。
Private Sub Form_Resize()
Select Case Form1.WindowState
Case vbNormal
'还原按钮被按下或窗体大小发生改变
Case vbMinimized
'最小化按钮被按下
Case vbMaximized
'最大化按钮被按下
End Select
End Sub

点击最大化或最小化或还原按钮Resize事件：
if me.windowstate=0 then
正常
elseif me.windowstate=1 then
最小化
elseif me.windowstate=2 then
最大化
end if
点击关闭按钮先触发QueryUnl