有选择的自动关闭msgbox
Private Declare Function MsgBoxEx Lib "user32" Alias "MessageBoxTimeoutA" ( _
ByVal hwnd As Long, _
ByVal lpText As String, _
ByVal lpCaption As String, _
ByVal wType As VbMsgBoxStyle, _
ByVal wlange As Long, _
ByVal dwTimeout As Long) As Long
Private Sub Form_Unload(Cancel As Integer)
Dim ret As Long
ret = MsgBoxEx(0, "请选择", "两秒后自动关闭", vbYesNo + vbInformation, 1, 2000)
If ret = 32000 Then '定时时间毫秒
Debug.Print "超时关闭"
DoCmd.Quit '退出本窗口时不写
ElseIf ret = vbYes Then
Debug.Print "选择Yes"
DoCmd.Quit '退出本窗口时不写
ElseIf ret = vbNo Then
Debug.Print "选择No"
Cancel = 1 '不退出
End If
End Sub