[RainBow]

أضف 1 Timer
2- ضع هذا الكود تحت كلمه

كود :

Public Class Form1

كود :

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

3- خلى Timer Enabled True
4- اكتب هذا الكود فى Timer

كود :

If GetAsyncKeyState(Keys.A) Then
            'ضع الكود الذى تريضة هنا
        End If
    End Sub