窗体关闭按钮(X按钮)--触发事件．
求一段小程序，鼠标点击窗体关闭按钮(X按钮)--触发事件．

得到结果
MsgBox "鼠标点击窗体关闭按钮(X按钮)"

[解决办法]
对了，你好像是特别指定只处理点那按钮的情况，那就是

VB code

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)    If (UnloadMode = vbFormControlMenu) Then        If (MsgBox("你真的想要退出吗？", vbQuestion + vbYesNo) = vbNo) Then            Cancel = True        End If    End IfEnd Sub
[解决办法]
窗体模块：
VB code
Option ExplicitPrivate Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As LongPrivate Const WM_CLOSE As Long = &H10Private Sub Form_Load()        EnumWindows AddressOf EnumWindowsProc, ByVal 0&End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)    If (UnloadMode = vbFormControlMenu) Then        If (MsgBox("你确定退出程序吗？", vbQuestion + vbYesNo) = vbYes) Then            If WritPadHwnd <> 0 Then               Call SendMessage(WritPadHwnd, WM_CLOSE, ByVal 0&, ByVal 0&)            End If            Cancel = 0        Else            Cancel = 1        End If    End IfEnd Sub