محتاج كود لايقاف عمل الكيبورد نهائيا اثناء تشغيل البرنامج يعني اي شي يضغطه يكون ما في استجابة
كود :
Option Explicit
Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Sub Command1_Click()
fBlock (True)
End Sub
اول شي ممكن التوضيح اكثر و يفضل كمان ضع معه كود ابطال عمل الكود و شكرا
وين الردود حتي الرد الوحيد و مو فاهم شي
تفضل ياأخي
اتمنا الإستفادة للجميع
منقول