msgbox自动消失的问题

Question

提供一种思路
Option Explicit
Dim k
Private Sub Command1_Click()
Me.Timer1.Interval = 1000
MsgBox "显示" & Text1.Text & "秒自动消失"
End SubPrivate Sub Timer1_Timer()
k = k + 1
If k = CInt(Text1.Text) Then
 SendKeys "{escape}"
 k = 0
 Timer1.Interval = 0
 End If
End Sub
文本框输入时间（秒）

Answer 1

加个TIMER记时当超过10秒后调用vbyes下的代码即可。

Answer 2

加个TIMER控件来控制时间，当到时间后调用vbyes下的代码。

Answer 3

自己创建一个信息窗体显示信息，窗体装入后启动timmer控件，时间一到就unload窗体。最好用API让这个窗体总在最上面

Answer 4

好象不是这么简单，我记得要用SendMessage的!