يسمح لك بكتابة ارقام فقط

Private Sub TextBox4_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox4.KeyPress

Select Case e.KeyChar

Case “0” To “9”, 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 *