定时器!~
不用做了吧!?~    m(_ _)m
timer

知识太少，再说详细细点了，我会保存当前时间，但我不会把用户输入的时间和当前时间配和起来以达到效果呀？谢谢了！

他的意思是说VB里面自带timer控件，是不需要编写的～

Option Explicit

Dim Time1 As Date '当前时间
Dim Time2 As Date '定时时间

Private Sub Form_Load()
Time2 = "8:09:31"             '设置定时的时间，24小时制
Timer1.Interval = 1000        '设置计时器每秒钟运行一次
Timer1.Enabled = True         '计时器开始运行
End Sub

Private Sub Timer1_Timer()
Time1 = Time()                 '获取当前时间
If Time1 < Time2 Then Exit Sub '如果没有到定时时间，退出
Timer1.Enabled = False         '计时器停止运行

'这下面写你要执行的代码。例如：
MsgBox "到点了！"
End Sub