关闭form的时候怎样可以弹出确认对话框？

[godblessedman]

在按下关闭的叉的时候，怎么才可以让弹出对话框

[lihonggen0]

Private Sub Form_Unload(Cancel As Integer)
If MsgBox("您是否要退出系统 ？", 4 + 32 + 256, "考勤系统") = vbYes Then

End
Else
Cancel = True
End If

End Sub

[Apple200228]

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("确定退出系统吗?", 32 + vbYesNo, "退出") = vbNo Then
Cancel = True
End If
End Sub

[zhenglc]

标准答案如上

[道素]

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If (MsgBox("确定要关闭吗", vbOKCancel, "提示") = vbCancel) Then Cancel = true

End Sub