This code loops through a dataenvironment and gets a reference to each object contained therein.

= AMEMBERS(aDEObjects, THISFORM.DATAENVIRONMENT, 2) && Get list of DE objects
FOR i = 1 TO ALEN(aDEObjects, 1)
loObject = EVALUATE('THISFORM.DataEnvironment.' + aDEObjects[i])

do something with object reference...

ENDFOR

Charlie