Sure.

IF TYPE('thisform.pageframe1')<>"U"
  ipage = 0
  FOR EACH loPage IN THISFORM.PAGEFRAME1.PAGES
     ipage = ipage + 1
     lnorder = loPage.controlcount
     FOR EACH oControl IN loPage.CONTROLS
	IF oControl.tabstop = .T. .and. NOT INLIST(ocontrol.baseclass, "SHAPE", "LABEL") .and. ; 
	   oControl.readonly=.F. .and. ;
	   oControl.enabled = .T.
	   IF oControl.tabindex < lnorder
   	     lnorder = oControl.tabindex
   	     *** [Nick's change]
   	     lcFullControlName = SYS(1272, oControl)
   	     lccommand = 'THISFORM.Page' + TRANSFORM(ipage) + 'top = thisform.GetFullHierarchy(lcFullControlName)'
   	     *** [/Nick's change]
	     &lccommand
             *Example thisform.page1top='TEXT1' && first control on page1
	   ENDIF
	ENDIF
      ENDFOR
   ENDFOR
ENDIF

>Hi again Nick,
>
>Can you give me an example of the value that would be passed to your routine below? Should it be run at the time that I figure out what control is the first control? For instance, if I am stepping through all controls in a pageframe in the form's init to determine which control is the first tabbed control on the form and determine that the first control on page1 is 'TEXT1' so I store 'TEXT1' to thisform.page1top like below:
>