vb timer控件怎么设置一小时后执行

设置timer1的interval为60000。
定义一个模块级变量i，在timer1的timer事件中添加代码如下
i = i + 1
If i > 1 And i Mod 60 = 0 Then
。。。。要执行的命令
他的回答只能检测一次，即时间大于60分钟就不能继续检测了，而我的答案可以重复检测只要时间是60分钟的倍数就满足条件，孰优孰劣，你应该看的出来吧。
那个闪星2的答案纯粹都无法检测，因为i是个局部变量，无论TIMER事件执行了多少次，i的值都是1.

设置timer1的interval为1000，即1秒
定义一个整形变量i，代码如下
Private Sub Timer1_Timer()
Dim i As Integer
i = i + 1
If i = 3600 Then '一个小时即3600秒（没算错的话）
i = 0
Print 要执行的命令
End If
End Sub

我的同样能重复检测，每60分钟（即一小时）执行一次。吃完年夜饭之后就来给你回答了，望采纳啊！

Dim XX As Integer '这个变量必须是模块级的，不能是过程级

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000 '设置计时器基本计时为1秒
End Sub

Private Sub Timer1_Timer()
XX = XX + 1
If XX = 3600 Then
'这里设置到达1小时后的程序代码
End If
End Sub

定义一个模块级变量T，在timer1的timer事件中添加代码如下
T = T + 1
If T >= 60 Then T=0 要执行的命令Else exit subend if

Private Sub Timer1_Timer()
Timer.Interval = 3600
Dim Time As Integer
Time = Time + 1
If Time = 1 Then
Time = 0
'请写出要执行的命令
End If
End Sub