以下是引用团囝在2007-8-7 21:37:09的发言：
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秒后自动关的了...
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秒后自动关的了...
学习了！
生命中，不断有人离开和进入。于是，看见的，看不见了；记住的，遗忘了。
