vb.net

Private   Sub   TextBox1_KeyPress(Byval sender As System.Object,   Byval e As System.Windows.Forms.KeyPressEventArgs)Handles   textBox1.KeyPress   
       If Char.IsNumber(e.KeyChar)   Or   e.KeyChar   =   Chr(Keys.Back)   Then     
                          Return   
            End   If   
            e.Handled   =   True   
  End   Sub