Repetir SendKey cada 1 segundo

Pues necesito ayuda, uso visual basic 6 y me planteo lo siguiente:
Necesito enviar un SendKey cada 1 segundo de forma automática al pulsar un botón. En el form tengo un botón ''Iniciar'', otro botón ''Detener'' y dos timers. El código es el siguiente:
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_NORMAL = 1
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer2.Enabled = False
End Sub
Private Sub Timer1_Timer()
Timer2.Enabled = True
Timer1.Enabled = False
End Sub
Private Sub Timer2_Timer()
SendKeys ("{Z}")
End Sub
Pero me da aun error en ésta línea:
Private Sub Timer2_Timer()
SendKeys ("{Z}")
End Sub
Me gustaría saber si hay algún error en el código
Saludos