Timing Countdown

Timer1.Tick
if number <= 5000 then
sendkeys.send(keys.d)
number = number + 1
else
timer1.enabled = false
end if
end sub

Timer1.Tick
if number <= 5000 then
sendkeys.send(keys.d)
number = number + 1000
else
timer1.enabled = false
end if
end sub

Timer1.Interval = 1000
timer1.enabled = true

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer

Dim f1 As Boolean

        f1 = GetAsyncKeyState(Keys.F1)

        If f1 = True Then
         'your code
        End If

 Timer1
Dim f1 As Boolean
        Dim number As String


        f1 = GetAsyncKeyState(Keys.F1)

        If f1 = True Then
            Timer1.Interval = 1000
            Timer1.Enabled = True
            If number <= 5000 Then
                SendKeys.Send(Keys.D)
                number = number + 1000
            End If
        End If