vb里怎样在指定时间点上执行一段代码？

Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
If Format$(Now, "hhmm") = "1234" Then
'这里写要执行的代码段
'1234表示中午12点34分，根据需要自行修改
Timer1.Interval = 60001
'到工作时间时把工作频率改为每分钟工作一次
'否则在这一分钟里会连续执行60次你的代码
Else
'过了那一分钟再修改回来
Timer1.Interval = 1000
End If
End Sub

在timer事件中检查系统时间是否指定的时间点，是就执行代码