Peter,

This is a good place to use a recursive function.

DrillIt( thisform, " ) && call it

And here's the function:

function DrillIt( roObject, lcName )

if ( pemstatus( roObject, "Caption", 5 ) )
   if ( ! empty( roObject.Caption ) )
      debugout lcName + iif( empty( lcName ), "", "." ) + roObject.Name + ".Caption = " + roObject.Caption
   endif
endif

if ( pemstatus( roObject, "Objects", 5 ) )
   local loObject

   for each loObject in roObject.Objects
      DrillIt( loObject, lcName + iif( empty( lcName ), "", "." ) + roObject.Name )
   endfor
endif

return

>I'm trying to find all objects and all objects / controls within other objects (container type controls like Pages on pageframes and Headers in Grids) on a given form, provided they have a Caption property.
>
>If I find one, and the Caption <> "", I'd like to write the full hierachy to a file. That's the part I know how to do.
>
>So far I've come up with the following, which gives me part of what I want, but for some reason skips the grids.