Как определить нажатие клавиш, даже когда окно не активно

    <Runtime.InteropServices.DllImport("user32.dll")> _
    Public Shared Function GetAsyncKeyState(ByVal vKey As System.Windows.Forms.Keys) As Short
    End Function
 
'А дальше в таймер (если нажали Контрл+R)
If GetAsyncKeyState(Keys.LControlKey) And GetAsyncKeyState(Keys.R) Then
MsgBox("1")
End If

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
 
Private Const MOUSEEVENTF_LEFTDOWN = &H2 
Private Const MOUSEEVENTF_LEFTUP = &H4 
 
Public Sub MouseClick()
Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
End Sub
 
'Допустим потом в кнопку:
Cursor.Position = New Point(10, 10) 'переносим курсор в точку 10. 10.
MouseClick() 'Клик лкм.
'Конец.

 Declare Function mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Int32, ByVal dX As Int32, ByVal dY As Int32, ByVal cButtons As Int32, ByVal dwExtraInfo As Int32) As Boolean
    Private Const MOUSEEVENTF_LEFTDOWN = &H2
    Private Const MOUSEEVENTF_LEFTUP = &H4
    Private Const MOUSEEVENTF_rightDOWN = &H8
    Private Const MOUSEEVENTF_rightUP = &H10
  Private Sub Timer14_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer14.Tick
        Application.DoEvents()
        Call mouse_event(MOUSEEVENTF_rightDOWN, 0, 0, 0, 0)
        Call mouse_event(MOUSEEVENTF_rightUP, 0, 0, 0, 0)
    End Sub