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

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

用Wscript Objectdim ws as ObjectSet 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————————————————————————————————————————