LPARAMETERS loObj =GetMembers(loObj) FUNCTION GetMembers LPARAMETERS loObj, lnIndent LOCAL ARRAY laMembers[1] LOCAL lcMember IF EMPTY(lnIndent) lnIndent = 0 ENDIF IF PCOUNT() > 1 lnindent = lnIndent + 2 ENDIF IF TYPE('loObj') = 'O' IF VARTYPE(loObj) = 'O' IF aMembers(laMembers, loObj, 2) > 0 FOR EACH lcMember IN laMembers ? REPLICATE(SPACE(1), lnIndent) + lcMember =Getmembers(loObj.&lcMember, lnIndent) ENDFOR ENDIF ENDIF ENDIFHTH