VBA: 自动定时关闭消息框

Option Explicit

#If VBA7 And Win64 Then
Private Declare PtrSafe Function MessageBoxTimeout Lib "user32" _
    Alias "MessageBoxTimeoutA" (ByVal hwnd As Long, _
                                ByVal lpText As String, _
                                ByVal lpCaption As String, _
                                ByVal wType As Long, _
                                ByVal wlange As Long, _
                                ByVal dwTimeout As Long) As Long
#Else
Private Declare Function MessageBoxTimeout Lib "user32" _
    Alias "MessageBoxTimeoutA" (ByVal hwnd As Long, _
                                ByVal lpText As String, _
                                ByVal lpCaption As String, _
                                ByVal wType As Long, _
                                ByVal wlange As Long, _
                                ByVal dwTimeout As Long) As Long
#End If

Sub Demo1()

    ' 只有“确定”按钮
    
    MessageBoxTimeout 0, "3 秒后自动关闭", "DEMO1", 0, 0, 3000
    
    ' MsgBox "VBA消息框", vbOKOnly, "DEMO1-VBA"
    ' vbOKOnly    0
    
End Sub

Sub Demo2()

    ' 共三个按钮，其中第二按钮为默认。
    
    MessageBoxTimeout 0, "3 秒后自动关闭", "DEMO2", 275, 0, 3000
    
    'MsgBox "VBA消息框", vbDefaultButton2 + vbCritical + vbYesNoCancel, "DEMO2-VBA"
    'vbDefaultButton2    256
    'vbCritical          16
    'vbYesNoCancel       3

End Sub