Ali,
But what Nancy is saying is that you also need to do the loop for the container objects inside the form, like grids, pageframes, containers etc.
Try something like:
clear
do Form someform
activate screen
getAll(_screen.Forms(1))
function getAll(toObject)
local oControl
For each oControl in toObject.Objects
? oControl.Name
if Pemstatus(oControl, 'Objects', 5)
getAll(oControl)
endif
Endfor
"The five senses obstruct or deform the apprehension of reality."
Jorge L. Borges?
"Premature optimization is the root of all evil in programming."
Donald Knuth, repeating C. A. R. Hoare
"To die for a religion is easier than to live it absolutely"
Jorge L. Borges