Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
'burada tuşlarımızı tanımlıyoruz.

Private Const VK_F1= &H70    'F1 tuşunu tanımladık Başka tuşlarda ekleyebilirsinz.

Private Sub Form_Load()
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
If GetAsyncKeyState(VK_F1) Then ' eğer F1 e basılırsa alttaki komutu çalıştır.
Msgbox "F1 e basıldı"  'Buraya kendi komutunuzu ekleyebilirsiniz.
End If ' koşulumuzu bitiriyoruz.
End Sub

VK_NUMPAD7    0x67                                    VK_BACK    0x08
VK_NUMPAD8    0x68                                    VK_TAB    0x09
VK_NUMPAD9    0x69                                    VK_RETURN    0x0D
VK_MULTIPLY    0x6A                                    VK_SHIFT    0x10
VK_ADD    0x6B                                        VK_CONTROL    0x11
VK_SEPARATOR    0x6C                                VK_MENU    0x12
VK_SUBTRACT    0x6D                                    VK_PAUSE    0x13
VK_DECIMAL    0x6E                                    VK_CAPITAL    0x14
VK_DIVIDE    0x6F                                        VK_ESCAPE    0x1B
VK_F1    0x70                                        VK_SPACE    0x20
VK_F2    0x71                                        VK_END    0x23
VK_F3    0x72                                        VK_HOME    0x24
VK_F4    0x73                                        VK_LEFT    0x25
VK_F5    0x74                                        VK_UP    0x26
VK_F6    0x75                                        VK_RIGHT    0x27
VK_F7    0x76                                        VK_DOWN    0x28
VK_F8    0x77                                        VK_PRINT    0x2A
VK_F9    0x78                                        VK_SNAPSHOT    0x2C
VK_F10    0x79                                        VK_INSERT    0x2D
VK_F11    0x7A                                        VK_DELETE    0x2E
VK_F12    0x7B                                        VK_LWIN    0x5B
VK_NUMLOCK    0x90                                    VK_RWIN    0x5C
VK_SCROLL    0x91                                    VK_NUMPAD0    0x60
VK_LSHIFT    0xA0                                    VK_NUMPAD1    0x61
VK_RSHIFT    0xA1                                    VK_NUMPAD2    0x62
VK_LCONTROL    0xA2                                    VK_NUMPAD3    0x63
VK_RCONTROL    0xA3                                    VK_NUMPAD4    0x64
VK_LMENU    0xA4                                    VK_NUMPAD5    0x65
VK_RMENU    0xA5                                    VK_NUMPAD6    0x66