[ابو انس]

وعليكم السلام ورحمة الله وبركاته
اولا الكود يجب ان يكون في حدث KeyPress للتيكست بوكس

مثال لمنع كتابة الاحرف العربية والانكليزية

كود :

If (e.KeyChar >= "a" And e.KeyChar <= "z") Or (e.KeyChar >= "A" And e.KeyChar <= "Z") Or (e.KeyChar >= "ا" And e.KeyChar <= "ي") Then
           e.Handled = True
       End If

مثال لمنع كتابة كل شيء الا الارقام والفاصلة

كود :

  If (e.KeyChar < "0" OrElse e.KeyChar > "9") AndAlso e.KeyChar <> ControlChars.Back AndAlso e.KeyChar <> "." AndAlso e.KeyChar <> "," Then
           e.Handled = True
       End If

مثال لمنع كتابة حرف واحد وهو في حالتنا حرف a  سمول

كود :

 If (e.KeyChar = "a") Then
           e.Handled = True
       End If