VB中隔10分钟就做一件事情

timer
间隔是1分钟
每十分提示 "十分钟了"
代码如下

Public a

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Timer1.Interval = 60000
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
a = a + 1
If a = 10 Then
MsgBox "10分钟了"
a = 0
End If
End Sub

在窗体添加Timer控件：
编辑如下代码：
Private Sub ABC()
'..................
End Sub

Private Sub Form_Load()
Timer1.Interval = 1000 'Timer1的计时时间是1秒
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Dim a As Integer
a = a + 1
If a = 600 Then 'a=600就是10分钟
Call ABC '启动ABC事件
a = 0
End If
End Sub

我想到一个方法，用一个Timer就可以了。思路是：执行Timer，给模块级变量加1，以后每次执行Timer的时候检测变量的值，如果值为十的话做那件事，如果不是十的话继续执行timer同时给模块级变量加1（说得有点乱），例子如下：
Option Explicit
Dim x As Integer

Private Sub Comma