Timer Slow to Start

[DS]

I have the Timer code on a form. The interval is set to 1000.
I have it that when you click on a command button it sets the TxtAction
field to one which sets off the time. The problem is that it takes
about 7 seconds to start. I want it to start whenever the command
button is clicked.
Thanks
DS


Private Sub Form_Timer()
If Me.TxtAction = 1 Then
Dim i As Integer
For i = 1 To 5
If Me.LabelTrans.Visible = True Then
Me.LabelTrans.Visible = False
Me.TimerInterval = 500
Else
Me.LabelTrans.Visible = True
Me.TimerInterval = 2500
End If
Next i
Else:
End If
End Sub