Bisma - How would I do this?

'Bisma - QuickSwitcher
Public Class Form1

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

    'Other(s)

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button2.Enabled = False
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If GetAsyncKeyState(Keys.Q) Then
            SendKeys.Send("{Q}")
            SendKeys.Send("{Q}")
            Status.Text = "Quicking!"
        Else
            Status.Text = "Waiting for input..."
        End If
    End Sub
    '------------------------------------------------------

    'Buttons

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
        Button1.Enabled = False
        Button2.Enabled = True
        Status.Text = "[B]Quicking!"
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Stop()
        Button2.Enabled = False
        Button1.Enabled = True
        Status.Text = "[B]Waiting for input..."
    End Sub
    '------------------------------------------------------

    'Tool Strips

    Private Sub SupportsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SupportsToolStripMenuItem.Click
        MessageBox.Show("Combat Arms Only (MULTI SOON)")
    End Sub
    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        Application.Exit()
    End Sub
    '------------------------------------------------------

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If GetAsyncKeyState(Keys.Q) Then
            SendKeys.Send("{Q}")
            SendKeys.Send("{Q}")
            Status.Text = "Quicking!"
        Else
            Status.Text = "Waiting for input..."
        End If
    End Sub