这个编译后可以实现!我给你的代码里面有的啊!晕死

Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) _
As Long

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hWnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) _
As Long

Private Const WM_CLOSE = &H10
Private Const MsgTitle As String = "3秒自动消失"
Private Sub Command1_Click()
Dim msg As String
Timer1.Enabled = True
If Compiled Then

msg = "将会消失在 3 秒后。"

Else

msg = "将会消失在 3秒后，" & vbCrLf & "必须编译后才能看见效果。"

End If

MsgBox msg, vbOKOnly, MsgTitle
Timer1.Enabled = False
End Sub

Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()

Dim hWnd As Long

hWnd = FindWindow(vbNullString, MsgTitle)
Call SendMessage(hWnd, WM_CLOSE, 0, ByVal 0&)

End Sub
Private Function Compiled() As Boolean

On Error GoTo NotCompiled

Debug.Print 1 / 0

Compiled = True

NotCompiled:

End Function
这个必须编译后才可以用的啊

http://bbs.bc-cn.net/viewthread.php?tid=140777&star=at#

怎么发现大部分人都是直接发帖，也不会翻翻以前的帖。
我记得那个附件里有三种不同的MsgBox，第一种就是四秒关闭的。

全程编译吗？

你运行就知道了!直接生成exe就可以了!

我试了

除了vbAbortRetryIgnore和vbYesNo之外其他的都可以在设定的时间到时消失

这2个为什么不行

Joforn那个不错，LZ试下吧

Private Sub Command1_Click()
' this shows a messagebox that will be dismissed after 4 seconds

' set the callback timer and pass our application defined ID (NV_CLOSEMSGBOX)
' set the time for 3 seconds (3000& microseconds)
SetTimer hWnd, NV_CLOSEMSGBOX, 3000&, AddressOf TimerProc

' call the messagebox API function
Call MessageBox(hWnd, "显示四秒后自动关闭的MsgBox对话框，爽吧？", _
"Self Closing Message Box", MB_ICONQUESTION Or MB_TASKMODAL)

End Sub



我就是把TOFORN的那个的4改成了2，就是2秒后自动关的了...