>frmMyForm.AddObject('ctbox1','TBOXyes') >restore from l:gooddate.mem addit && var is mgooddate >DEFINE CLASS tboxyes AS textbox && Create Command button > value = mgooddate > Left = 50 && Command button column > Top = 100 && Command button row > Height = 25 && Command button height > width=49 > inputmask='99999' > >PROCEDURE keypress > para nkeycode,hello > if nkeycode=13 > mgooddate=allt(thisform.cmdCmndBtn1.value) > save all like mgooddate to l:gooddate > releas cmdyes,cmdCmndBtn1 > release mgooddate >rest from l:gooddate.mem addit > CLEAR EVENTS && Stop event processing, close Form > release thisform >endi >ENDDEFINE