VB对话框的问题

我做了一个计时器 但不知道怎么才能 到我设定的时间就自动弹出对话框，而不是点击按钮弹出对话框！谁知道啊？～～～50分 追加10...
我编的那个形式是 如果到了什么时候就 弹出那个窗口（内容先随便） 你就告诉我Then后面写什么？有高手没？我把全部的发给你！Q449124114

我帮你设计一个这样的情况吧：
单击窗体，两秒后弹出对话筐。代码如下：
Private Sub Form_Load()
Timer1.Enabled = False
End Sub

Private Sub Form_Click()
Timer1.Enabled = True
Timer1.Interval = 2000
End Sub

Private Sub Timer1_Timer()
Dim x As Integer
x = MsgBox("成功啦～^_^", 64, "提示")
Timer1.Enabled = False
End Sub

不知道你用几个定时器,先代替一个!!
Private Sub Form_Load()
Timer1.Interval = 2000 '定时2秒!!
End Sub

Private Sub Timer1_Timer()
Form2.Show '调用窗体
End Sub

请问2楼的,你的X设定为整形,还=什么MSGBOX啊?再说了,X=那个,有什么意义啊?

二楼的对了·

Dim tm As Date
Private Sub Form_Load()

tm = "08:42:00"
Timer1.Enabled = True
Timer1.Interval = 10

End Sub

Private Sub Timer1_Timer()

If Time = tm Then
MsgBox "时间到达.这里可以换成启动窗体代码."
End If

End Sub

Private Sub Timer1_Timer()
FORM2.SHOW