VB如何实现MsgBox自动关闭

Set WshShell = CreateObject("Wscript.Shell")'创建函数并引用

例子

Dim i

i=3.1415926

'msgbox i   这种乱卜是不会自动关闭的

WshShell.popup i,5,"d出信息显示栏" 'i表示d出框的内容，5表示等待5秒时间自动关闭，"d出信息显示哗者穗栏" 是d出框左上角的标题名称

i这里还可以加描述如："这个是赋值给i的值等于："&嫌辩i完整（WshShell.popup "这个是赋值给i的值等于："&i,5,"d出信息显示栏"）

需要引用Windows开头的文件。庆亩姿

MessageBox函式用于显示短资讯。虽然，MessageBox显示的小视窗不具有什么功能誉绝，实际上它被认为是一个对话方耐蔽块。