FOR EACH oObject IN THISFORM.OBJECTS IF PEMSTATUS(oObject,"Caption",5) cCaption = "" cLevel1Name = THISFORM.NAME + "." + oObject.NAME + ".Caption " cCaption = oObject.CAPTION IF cCaption # "" oApplicationInit.WriteIniFile(lcIniFile, lcSection, cLevel1Name, cCaption) ENDIF ENDIF IF PEMSTATUS(oObject,"Objects",5) && If it itself contains objects FOR EACH oObject2 IN oObject.OBJECTS cCaption= "" IF PEMSTATUS(oObject2,"Caption",5) cLevel2Name = THISFORM.NAME + "." + oObject.NAME + "." + oObject2.NAME + ".Caption " cCaption= oObject2.CAPTION IF cCaption # "" oApplicationInit.WriteIniFile(lcIniFile, lcSection, cLevel2Name, cCaption) ENDIF ENDIF ENDFOR IF PEMSTATUS(oObject2,"Objects",5) FOR EACH oObject3 IN oObject2.OBJECTS cCaption= "" IF PEMSTATUS(oObject3,"Caption",5) cLevel3Name = THISFORM.NAME + "." + oObject.NAME + "." + oObject2.NAME + "." + oObject3.NAME + ".Caption " cCaption= oObject3.CAPTION IF cCaption # "" oApplicationInit.WriteIniFile(lcIniFile, lcSection, cLevel3Name, cCaption) ENDIF ENDIF ENDFOR ENDIF ENDIF ENDFOR