Código
Option Explicit Dim bFlagKey1 As Boolean Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Long Private Sub Form_Load() bFlagKey1 = False Timer1.Interval = 1 Timer1.Enabled = True Timer2.Interval = 1000 Timer2.Enabled = True End Sub Private Sub Timer1_Timer() If GetAsyncKeyState(vbKey1) And 1 Then bFlagKey1 = Not bFlagKey1 End If End Sub Private Sub Timer2_Timer() If bFlagKey1 Then SendKeys "{ENTER}" + "{ }" + "{ENTER}" End If End Sub