أستخدم دالة GetAsyncKeyState للحصول على المفتاح المضغوط على لوحة المفاتيح و ذلك باستخدام مؤقت يتعرف على الحرف المقابل للمفتاح الذي تم ضغطه
المشكلة في الحروف العربية ، لأن هذه الدالة تعيد دائماً الحروف الانجليزية فقط
Private Sub MyTimer_Timer() For nChar = 1 To 255 nKey = GetAsyncKeyState(nChar) Debug.Print nKey End If End Sub