a propos de (hotkey)

Tu fais un nouveau projet, dedans tu met un timer appelé Timer1, en interval tu mets 100 et en code tu met :

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Const VK_CTRL = 17
Private Const VK_MENU = 18  'Correspond a la touche ALT

Private Const VK_A = 65

Private Sub Timer1_Timer()
    If GetAsyncKeyState(VK_MENU) And GetAsyncKeyState(VK_CTRL) And GetAsyncKeyState(VK_A) Then
        MsgBox "Haha"
    End If
End Sub

Si tu fais CTRL + ALT + A ca te met Haha.

J'espere que ca sera explicite.

www.e-fitz.com
Encore plus de source et de tutoriels.