[العطر الرايق]

وعليكم السلام 
تفضل للصق الارقام فقط 

كود :

  Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
       TextBox1.Text = System.Text.RegularExpressions.Regex.Replace(TextBox1.Text, "[^\d]", "")    'Removes all character except numbers
       TextBox1.Select(TextBox1.Text.Length + 1, 1)    'To bring the textbox focus to the right
   End Sub