'File source from Holyguard.net
TYPE EditNum EXTENDS QEDIT
PRIVATE:
EVENT OnKeyPress (Key AS BYTE)
DEFSTR AcceptedChar = ",0123456789" & CHR$(8)
IF INSTR(AcceptedChar,CHR$(Key)) = False THEN
EditNum.ReadOnly = True
ELSE
EditNum.ReadOnly = False
END IF
END EVENT
END TYPE