Option Compare Database
Option Explicit
Dim intIndex As Integer
Private Sub cmdStart_Click()
Me.TimerInterval = 1000
End Sub
Private Sub cmdStop_Click()
Me.TimerInterval = 0
MsgBox intIndex
intIndex = 0
End Sub
Private Sub Form_Timer()
intIndex = intIndex + 1
End Sub