那个高手帮我看看问题在那里 VB

Dim RecTime As Variant
Dim miao As String

Private Sub Command2_Click()
Timer1.Enabled = True
Timer1.Interval = 1000
RecTime = Time
Label2.Caption = "开始时间：" & RecTime
End Sub
Private Sub Timer1_Timer()
Label1.Caption = "运行时间：" & Format(Time - RecTime, "hh:mm:ss")
miao = " 00:00:10"
If miao = RecTime Then
MsgBox "时间到"
End If
End Sub
Private Sub Command1_Click()
Timer1.Enabled = False
End Sub

以上是代码 用二个Label 一个Timer 二个 Command 是想让
10秒后自动弹出一个窗口提示时间到的 别的都正常 就是窗口弄不出来 急呀

那个高手帮我看看是错在那里 我用TC3.0编了程序 总是出现这个错误 高手帮我看看那个电脑好```` 高手进来看看我的问题在那里？谢谢 那个高手帮我看看我的劲舞是怎么回事` 那个高手来帮我看看我的电脑多少钱？ 高手帮我看看IE的问题 请高手帮我看看编码问题! 来高手帮我看看。系统问题。 IE问题,高手帮我看看 硬件问题，高手帮我看看