Thisform.AddObject('ctbox1','TBOXyes') Thisform.cbox1.value = mgooddate>>My advise would be not to use .MEM files. Store data in the table, INI file or registry, whatever is better for you.
>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