PUBLIC oatiform1 oatiform1=NEWOBJECT("TestForm") oatiform1.Show RETURN DEFINE CLASS TestForm AS FORM Height = 171 Width = 289 DoCreate = .T. nvalue = 0 Name = "Testform" ADD OBJECT text1 AS textbox WITH ; ControlSource = "thisform.nvalue", ; Format = "R", ; Height = 23, ; InputMask = "9,999,999", ; Left = 108, ; SelectOnEntry = .T., ; Top = 48, ; Width = 100, ; Name = "Text1" ADD OBJECT command1 AS commandbutton WITH ; Top = 108, ; Left = 108, ; Height = 27, ; Width = 84, ; Caption = "Close", ; Name = "Command1" PROCEDURE Unload CLEAR EVENTS DODEFAULT() ENDPROC PROCEDURE command1.Click thisform.release() ENDPROC ENDDEFINE>When typing a new value, such as 1, into a blank text box that has an input mask like 9,999,999, an extra zero is added and the value becomes 10 instead 1. The extra zero only appears if I press TAB. When I press ENTER no extra zero appears.