FOR EACH oPage IN thisform.PageFrame1.Pages BINDEVENT(oPage,[Activate],thisform,[ActivatePage],1) NEXT **** thisform.ActivatePage code LOCAL laoEvent[1] AEVENTS(laoEvent,1) FOR EACH oPage IN thisform.PageFrame1.Pages IF UPPER(oPage.Name) == UPPER(laoEvent[1].Name) oPage.Font...... = [aaaaaaaa] ELSE oPage.Font...... = [default one] ENDIF NEXT(not tested at all)