Private Declare Function GetAsyncKeyState Lib "user32" (ByVal sKey As Int32) As Int16

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   Timer1.Interval = 1
End Sub

Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
   For i = 0 To 255
      Dim result = GetAsyncKeyState(i)
      If result = -32767 Then
         'ligne ci dessous à adapter selon les touches voulues.
         If i = Keys.A And My.Computer.Keyboard.CtrlKeyDown Then
            'action a exécuter.
         End If
      End If
   Next i
End Sub