这个用 Wscript.Shell 就可以了...
简单示例如下:
Option Explicit
Const INT_DELAY = 5
Dim objShell
Set objShell = CreateObject("Wscript.Shell")
objShell.Popup "Hello...", INT_DELAY, "^o^", vbOKOnly
MsgBox "Nice to meet you...", vbOKOnly, ":-)"
Set objShell = Nothing
CreateObject("Wscript.Shell").popup "Hello",5,"标题", 界面