Hello everybody!
This is first time I'm trying to use this.
The reason is that I need to change color for each page in pageframe if any information is entered. So I need to go by each page, check each control and if value !empty gotta change color.

This is my code with "something wrong" in there:

FOR EACH Pages IN ThisForm.frame1.Pages
Pages.FORECOLOR=RGB(0,0,0)
FOR EACH objects IN ThisForm.frame1.Pages
IF INLIST(UPPER(objects.BaseClass), "TEXTBOX", "EDITBOX")
kukla = objects.Value
IF !EMPTY(&kukla)
Pages.ForeColor=RGB(0,0,0)
ENDIF
ENDIF
NEXT
NEXT