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