VB消息框Msgbox自动关闭

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 Command1_Click()

MsgBoxEx 0, "保存成功", "2秒后自动关闭", vbInformation, 1, 1500

End Sub

如果想在全局使用消息自动关闭，需要将声明添加到模块里，并且把Private Declare Function ...改成Public Declare Function ...后面的不变

有需要的自己研究一下