[ابوهديل]

هذا كود عدم الكتابة باللغة الانجليزية فقط حروف عربية:

Select Case e.KeyChar
Case "ء" To "ي", ControlChars.Back, Chr(Keys.Space)
e.Handled = False
Case Else
e.Handled = True

End Select
End Sub