[alfakeeh]

يعطيك العافية  
وشكرا على الرد السريع

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii >= 97 And KeyAscii <= 122 Then

Exit Sub

ElseIf KeyAscii >= 65 And KeyAscii <= 90 Then

Exit Sub

Else

KeyAscii = 0

       نضيف هذا السطر لتفعيل مفتاح backspace عند المسح بالانجليزي [b]                                                                                                                KeyAscii = 8[/b]

End If

End Sub

---

Private Sub Text5_KeyPress(KeyAscii As Integer)

If KeyAscii >= 97 And KeyAscii <= 122 Then

Exit Sub

ElseIf KeyAscii >= 65 And KeyAscii <= 90 Then

Exit Sub

Else

KeyAscii = 0

KeyAscii = 8

End If

End Sub

---

مشكلة لايعمل مفتاح backspace عند المسح