EDITSOURCE("AppContr.VCX", 0, "AppContr") >WITH _VFP.Objects[1].Objects[1].Objects[1] > *-- Now I assume that this is the only object here. > .ShortAppName = ALLTRIM(THIS.txtShortName.VALUE) > .AppNumber = ALLTRIM(STR(THIS.txtNumber.VALUE,10,2)) > .AppVersion = "1.00" > .AppName = ALLTRIM(THIS.txtLongName.VALUE) >ENDWITH>Now what's missing is the saving and closing of the class designer.