создайте форму с кнопочкой и добавте любые элементы по выбору
в методе клик кнопочки напишите

FOR i=1 TO thisform.ControlCount
MESSAGEBOX(thisform.Controls(i).baseclass)
ENDFOR

будут вопросы задайте

да еще забыл у _screen есть такое свойство как activeform
ну если соберете два ответа в кучу думаю вопросов не бут

свойства ControlCount Controls есть у многих контейнеров
и у них есть базовые классы которые нет возможности куда-либо спрятать

могу еще добавить для наводки , что я бы использовал вложенные циклы

_screen.activeform.Controls(1) - грид находится в этом Pageframe
и в свойствах ControlCount'а и Controls я не нахожу
а никто и не говорил про Pageframe эти свойства есть у Page
dime ara(100)
store 0 to ara
j=1
FOR i=1 TO thisform.ControlCount
do case
case thisform.Controls(i).baseclass='grid'
ara(j)=thisform.Controls(i).name
j=j+1
case thisform.Controls(i).baseclass='Pageframe'
for k=1 to thisform.Controls(i).pagecount
for l=1 to thisform.Controls(i).pages(k).ControlCount
if thisform.Controls(i).pages(k).Controls(l).baseclass='grid'
ara(j)=alltrim(thisform.Controls(i).name)+'.'+alltrim(thisform.Controls(i).pages(k).name)+'.'alltrim(thisform.Controls(i).pages(k).Controls(l).name)
j=j+1
endif
endfor
endfor
otherwise
endcase
ENDFOR

старость не радость уверен еще чего нить найдете
dime ara(100)
store "" to ara j=1
FOR i=1 TO thisform.ControlCount
do case
case thisform.Controls(i).baseclass='grid'
ara(j)=thisform.Controls(i).name
j=j+1
case thisform.Controls(i).baseclass='Pageframe'
for k=1 to thisform.Controls(i).pagecount
for l=1 to thisform.Controls(i).pages(k).ControlCount
if thisform.Controls(i).pages(k).Controls(l).baseclass='grid'
ara(j)=alltrim(thisform.Controls(i).name)+'.'+alltrim(thisform.Controls(i).pages(k).name)+'.'alltrim(thisform.Controls(i).pages(k).Controls(l).name)
j=j+1
endif
endfor
endfor
otherwise
endcase
ENDFOR

конечно трехэтажный мат напоминает
но если не нравиться делайте как доктор владимир прописал