点击下载附件

'1秒后自动关闭msgbox 1000 1秒可自行设置
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

 

Private Sub 保存_Click()
MessageBoxTimeout Me.hwnd, "保存成功", "Tips", vbInformation, 0, 1000
End Sub

演   示: