[Top GreaT]

وعليكم السلام
تستطيع ان تضع الكود التالي

كود :

[align=left]
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal v As Long) As Integer  ' هذا الكود في قسم التصريحات يعني اعلا الاكواد
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If GetAsyncKeyState(17) And GetAsyncKeyState(18) Then MsgBox "ppp"
End Sub
[/align]

ويمكنك تجربة جميع الحروف
ولكي تتعرف الى ارقام الحروف

ضع مربعان نص وكتب الكود التالي

كود :

[align=left]
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal v As Long) As Integer ' هذا الكود في قسم التصريحات يعني اعلا الاكواد
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Text2.tex = KeyCode
End Sub
[/align]

بالتوفيق ,,,