Try this:

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
ENDIF

HTH
>Hi again! :)
>
>How can I make a complete list of objects that are in a specifc form?
>This list should have all objects, including Headers/Columns, Pages, etc.
>
>I already have one function to do this, but it's so slowly...
>
>Have a good weekend...
>
>[]'s
>
>Rodolfo Duarte
>Ribeirao Preto / SP - Brazil