Timer1.Interval的最大值只能设为 65535，也就是65秒多。你可以通过变量累加来实现大于这个数的循环值，比如把Timer1.Interval设为60000（即一分钟），然后：Private Sub Timer1_Timer()Static n As Integern = (n + 1) Mod 3If n = 0 Then '三分钟到了！End IfEnd Sub
