[SnTnt]

لا اعلم لماذا لا يعمل معي
لقد استخدمت الكود هاذا قبل فترة مع حرف Esc
وكان يعمل جيدا
الان لا يعمل ؟

سأجرب تعديل الاكواد الخاصة في البرنامج

---

ان هاذا الكود

كود :

If My.Computer.Keyboard.ShiftKeyDown Then
           MsgBox("ShiftKey")
       End If

لاكنه فقط يقبل بعض الحروف 

هل من حل ؟ 

---

#################################################

حسنا

لقد تم حل المشكلة 

شكرا الان يعمل وبكل جدارا

شكرا لكم كلكم 

ابراهيم ايبو

Rabeea Qbaha