ومن باب جمع المتشابهات :
هذا كود رائع ابدعته انامل استاذنا عبدالله المجرب كإجابة لمسابقة مجلة اوفيسنا لشهر مايو 2014
Private Sub AR_KeyPress(KeyAscii As Integer)
If KeyAscii >= 65 And KeyAscii <= 122 Then KeyAscii = 0
If KeyAscii > 47 And KeyAscii < 58 Then KeyAscii = 0
End Sub
Private Sub EN_KeyPress(KeyAscii As Integer)
If KeyAscii > 122 Then KeyAscii = 0
If KeyAscii > 47 And KeyAscii < 58 Then KeyAscii = 0
End Sub
Private Sub NUMB_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 46, 48 To 57
Case Else
KeyAscii = 0
End Select
End Sub
Private Sub txtan_KeyPress(KeyAscii As Integer)
If KeyAscii > 47 And KeyAscii < 58 Then KeyAscii = 0
End Sub