Private
Sub
TextBox1_KeyPress(sender
As
Object
, e
As
System.Windows.Forms.
KeyPressEventArgs
)
Handles
TextBox1.KeyPress
If
(e.KeyChar >=
"0"c
And
e.KeyChar <=
"9"c
)
Or
(e.KeyChar =
"."
)
Then
e.Handled =
False
Else
e.Handled =
True
End
If
End
Sub