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

Question

点击窗体右上角的“小叉”图标来关闭窗体，会激发什么事件？如一些应用程序关闭的时候会显示“确认是否不保存退出？”的消息。另外如何使得“小叉”图标变成灰色，就是说不能通过按这个小图标来关闭一个窗体？

Answer 1

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

Answer 2

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