FOR EACH loPage IN Thisform.PageFrame.Pages FOR EACH loControl IN loPage.Controls Thisform.DoSomething( loControl ) ENDFOR ENDFORor
FOR lnPage = 1 TO Thisform.PageFrame.PageCount FOR lnControl = Thisform.PageFrame.Pages[ lnPage ].ControlCount Thisform.DoSomething( Thisform.PageFrame.Pages[ lnPage ].Controls[ lnControl ] ) ENDFOR ENDFORMarcia