[RESOLVED] Hotkey

[Eldrup]

The F3 hotkey works fine, but i cant get the F4 hotkey to work. What is the problem?

Here is the code...

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
 
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim starthotkey As Boolean
        Dim stophotkey As Boolean
        starthotkey = GetAsyncKeyState(Keys.F3)
        stophotkey = GetAsyncKeyState(Keys.F4)
        If starthotkey = True Then
            'start
            Timer1.Enabled = True
            If stophotkey = True Then
                'stop
                Timer1.Enabled = False
            End If
        End If
    End Sub