Option Explicit
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal _
  bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
 
Private Sub Form_Load()
Dim try
    Randomize
    Timer1.Interval = Int((7000 - 6500 + 1) * Rnd + 6500)
    Timer1.Enabled = False
End Sub
 
Private Sub Timer1_Timer()
Dim try
    For try = 0 To 1000
        PressKey vbKey2
        Timer1.Interval = Int((7000 - 6500 + 1) * Rnd + 6500)
 
    Next try
 
End Sub