[ناجي إبراهيم]

السلام عليكم...

ضع هذا الكود في الحدث KeyPress لمربع النص:

كود :

If KeyAscii > 31 Then
   If Not (((KeyAscii >= Asc("a")) And (KeyAscii <= Asc("z"))) _
           Or ((KeyAscii >= Asc("A")) And (KeyAscii <= Asc("Z")))) Then
       KeyAscii = 0
   End If
End If

نرجو الاستفادة و السلام.