Dim keyascii As String = e.KeyChar Dim chback As String chback = Asc(e.KeyChar) If chback = 8 Or keyascii >= "0" And keyascii <= "9" Or keyascii = "." Then e.Handled = False Else e.Handled = True End If
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)