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
————————————————————————————————————————