Реакция программы на нажатие клавиш, даже если она свернута в трей

Static k As Integer = 0
        If Asc(e.KeyChar) = klav Then
            k = k + 1
            Label1.Text = k
        End If

 Private Sub Form1_Resize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Resize
        If FormWindowState.Minimized Then
            Me.Hide()
        End If
 
    End Sub
    Private Sub NotifyIcon1_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NotifyIcon1.DoubleClick
        Me.Show()
        WindowState = FormWindowState.Normal
    End Sub

If Asc(e.KeyChar) = klav Then
            k = k + 1
            Label1.Text = k
        End If

    Private Const WM_HOTKEY As Integer = &H312
    Public Declare Auto Function RegisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer, ByVal fsModifiers As Integer, ByVal vk As Integer) As Boolean
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        RegisterHotKey(Me.Handle, 1020, Nothing, Keys.D)
    End Sub
 
    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
        MyBase.WndProc(m)
        If (m.Msg = WM_HOTKEY) Then
            Dim hotKeyId As Integer = m.WParam.ToInt32()
            If hotKeyId = 1020 Then
                Label1.Text += 1
            End If
        End If
    End Sub