[حريف برمجة]

في حدث كي بريس (keypress) للتكست بوكس ضع الكود التالي :

كود :

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