msgbox框出来以后，如果一定时间内没有人点确定，那怎么让这个框消失，使程序自动运行？

http://community.csdn.net/Expert/topic/4067/4067593.xml?temp=.8975794

用Wscript Object
dim ws as Object
Set ws = CreateObject("Wscript.Shell")
ws.Popup "串口未打开", 1, "提示"

也可FindWindow找到Msgbox,findwindowEX找到Button最后对按钮SendMessage   BM_CLICK
——————————————————————————————————————

定时关闭的MessageBox.（该API不支持Win2000）
 
Private Declare Function MessageBoxTimeout Lib "user32.dll" Alias "MessageBoxTimeoutA" ( _
    ByVal hwnd As Long, _
    ByVal lpText As String, _
    ByVal lpCaption As String, _
    ByVal uType As Long, _
    ByVal wlange As Long, _
    ByVal dwTimeout As Long) As Long
————————————————————————————————————————