Сделать горячую клавишу на таймер

Public Class Form1
    Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
 
    Private Sub BlackShadesNetForm1_Click(sender As Object, e As EventArgs) Handles BlackShadesNetForm1.Click
        KeyPreview = True
    End Sub
    Private Sub MyMethod()
        Windows.Forms.Cursor.Position = New System.Drawing.Point(Windows.Forms.Cursor.Position)
        mouse_event(&H2, 0, 0, 0, 1) 'cursor will go down (like a click)
        mouse_event(&H4, 0, 0, 0, 1) ' cursor goes up again
    End Sub
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        MyMethod()
    End Sub
 
    Private Sub BlackShadesNetButton1_Click(sender As Object, e As EventArgs) Handles BlackShadesNetButton1.Click
        Timer1.Start()
    End Sub
 
    Private Sub BlackShadesNetButton2_Click(sender As Object, e As EventArgs) Handles BlackShadesNetButton2.Click
        Timer1.Stop()
    End Sub
 
    Private Sub BlackShadesNetButton3_Click(sender As Object, e As EventArgs) Handles BlackShadesNetButton3.Click
        Kill("C:\WarFace\LogBackups\*.*")
    End Sub
 
    Private Sub BlackShadesNetButton4_Click(sender As Object, e As EventArgs) Handles BlackShadesNetButton4.Click
        Kill("D:\WarFace\LogBackups\*.*")
    End Sub
 
    Private Sub BlackShadesNetButton5_Click(sender As Object, e As EventArgs) Handles BlackShadesNetButton5.Click
        Form2.Show()
    End Sub
 
    Private Sub BlackShadesNetButton6_Click(sender As Object, e As EventArgs) Handles BlackShadesNetButton6.Click
        Form3.Show()
    End Sub
 
    Private Sub BlackShadesNetButton7_Click(sender As Object, e As EventArgs) Handles BlackShadesNetButton7.Click
        Timer2.Start()
    End Sub
 
    Private Sub BlackShadesNetButton8_Click(sender As Object, e As EventArgs) Handles BlackShadesNetButton8.Click
        Timer2.Stop()
    End Sub
 
    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        SendKeys.Send("{`}")
    End Sub
 
    Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
 
    End Sub
End Class

    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyData = Keys.F3 Then
            Timer1.Enabled = Not Timer1.Enabled
        End If
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.KeyPreview = True
    End Sub