Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
e.Handled = Not System.Text.RegularExpressions.Regex.IsMatch(e.KeyChar, "[0-9]")
End Sub
Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
e.Handled = Not System.Text.RegularExpressions.Regex.IsMatch(e.KeyChar, "[0-9]")
End Sub