GetAsyncKeyState Fonksiyonu

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Function Basılırsa(Key As Integer) As Boolean
Basılırsa = CBool(GetAsyncKeyState(Key)) 'GetAsyncKeyState(Key) Fonksiyonunu Basılırsa Olarak Degiştirdim
End Function 
Private Sub Form_Load()
Timer1.Interval = 1 
End Sub
Private Sub Timer1_Timer()
'If Then Koşulu Yaratıyoruz
'örnek Tuşlar
'vbKeySpace
'vbKeyF6
'vbKeyF2 gibi
If Basılırsa(vbKeyF9) Then ' F9 Basılırsa
MsgBox ("Aboo67") ' MsgBox acılcak 
End If
End Sub
'iyi Günler
'Aboo67
'Anlatim Ve Kodlama Bana Aittir Aboo67