GitHub

If Not Char.IsNumber(e.KeyChar) And Not Convert.ToInt32(e.KeyChar) = Keys.Back Then e ...

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress 'Escreve-se em VB 6 assim: 'Written in VB 6 as follows: 'If InStr("0123456789", Chr(KeyAscii)) = 0 nd ...