vb定时运行

问题：Command1_Click里面已经好了，现在想加一个定时程序的选项，选择就可以每个小时或每天运行一次，比如每小时就是间隔1个小时运行Command1_Click里的程序，每天就是在每天的一个整点运行

满意答案

添加一个Timer

一、间隔一小时运行：Timer1.Interval = 60000即1分钟，每分钟判断一次
Private Sub Timer1_Timer()
Static i As Integer
i = i + 1
If i Mod 60 > 0 Then Exit Sub
Command1.Value = True
i = 0
End Sub

二、每天正点运行（假定为12点整）：Timer1.Interval = 1000即1秒，每秒判断一次
Private Sub Timer1_Timer()
If Hour(Now) = 12 And Minute(Now) + Second(Now) = 0 Then Command1.Value = True
'If Val(Format(Now, "ssmmhh")) = 12 Then Command1.Value = True'本行代码与上行同效
End Sub

以下三行代码同效：
Command1.Value = True
Command1_Click
Call Command1_Click

若Command1为控件数组，以下三行代码同效：
Command1(0).Value = True
Command1_Click 0
Call Command1_Click (0)