يسمح بكتابة احرف انجليزية

  Private Sub TextBox3_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox3.KeyPress
Select Case e.KeyChar
Case "A" To "z", ControlChars.Back, Chr(Keys.Space)
e.Handled = False
Case Else
e.Handled = True
End Select
End Sub

Leave a Reply

Your email address will not be published. Required fields are marked *