LOCAL llRetVal
DO CASE
	CASE "amount"$LOWER(THIS.COMMENT) OR "amt"$LOWER(THIS.COMMENT)
		THIS.INPUTMASK = goApp.GetSetting("General", "Amount Format", "99 99 99 999.99")
		THIS.Format = goApp.GetSetting("General", "Amount Format", "99R99R99R999.99")

...
ENDCASE

IF THIS.PARENT.BASECLASS = "Column"
   THIS.PARENT.INPUTMASK = THIS.INPUTMASK
   THIS.PARENT.Format = THIS.Format
ENDIF

And:
You can use: SET SEPARATOR TO ,
or set Digit grouping symbol of the Windows Regional Options Control Panel (default is empty char, he he ), if you uses SET SYSFORMATS ON.

MartinJ

>I can send you the textbox class, let me know the address. It is based on the codebook so do you have a copy of it?
>
>>Can you send me form/classlib with code?
>>
>> MartinJ
>>
>>>Sorry Martin, it didn't work for me.
>>>