需要点确定才能继续
不需要点确定就继续运行的命令是什么 
蓝色光线 22:14:44
在吗 
菜鸟多媒体 22:14:44
sorry i am very busy now 
菜鸟多媒体 22:20:14
'3 秒后此 MsgBox 会自动关闭
'在设计时期无效，必须编译成 EXE 之后才有效！
'添加 Command1  Timer1

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_CLOSE = &H10
Const MsgTitle As String = "Test Message"
Private Sub Command1_Click()
Dim nRet As Long
Timer1.Interval = 3000
Timer1.Enabled = True
nRet = MsgBox("若您不回应的话，3 秒后此 MsgBox 会自动关闭", 64, MsgTitle)
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Dim hWnd As Long
hWnd = FindWindow(vbNullString, MsgTitle)
Call SendMessage(hWnd, WM_CLOSE, 0, ByVal 0&)
End Sub 
蓝色光线 22:22:09
除了msgbox,有没有命令直接显示说明的命令 
菜鸟多媒体 22:22:03
me.print "asasadsdfs" 
蓝色光线 22:23:44
直接用print "asasadsdfs"
也可以吧，这个我还忘了 
菜鸟多媒体 22:25:08
me.autoredraw=true 免得被盖掉