اقدم اليكم برنامج يقوم باظاهر الاسكي لازرار الكيبورد

سلام عليكم

بارك الله فيك أخي الكريم

البرنامج ما شاء الله عليه

مثالي من حيث صغر حجمه وسهولة استخدامه بالاضافة لفائدة الجمة

الكود:

Private Sub Form_KeyPress(KeyAscii As Integer)
Me.Font.Size = 18
Me.Font.Bold = True
Print Chr$(KeyAscii) & "=" & KeyAscii
End Sub

اخي الكريم El3asher مشكور وبارك الله فيك علي ردك وجزاك الله كل خير

اخي الكريم عبد العزيز مشكوور علي وضعك الكود وجزاك الله كل خير ملف ابرنامج للفائدة ولكنك سبقتني واليكم الكود المستخدم في البرنامج

Private Sub Form_KeyPress(KeyAscii As Integer)
	Dim X As Integer
	X = KeyAscii
	Label2.Caption = X
	Form1.SetFocus
End Sub