急：关于关闭窗体的一些问题。

[guogangj]

点击窗体右上角的“小叉”图标来关闭窗体，会激发什么事件？如一些应用程序关闭的时候会显示“确认是否不保存退出？”的消息。

另外如何使得“小叉”图标变成灰色，就是说不能通过按这个小图标来关闭一个窗体？

[qqqdong]

1、QueryUnLoad事件
2、Form.ControlBox = False

[Cooly]

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("确定要退出吗?", vbYesNo + vbQuestion, "提示") = vbNo Then
Cancel = 1
Else
Unload Me
End If
End Sub