Local oForm Activate Screen clear oForm = CreateObject('MyForm') oForm.Show(1) Return Define Class MyForm As Form Add Object PF As MyPageFrame Autocenter = .T. && Only for read the background screen Function Init() Activate Screen ? 'MyForm Init' EndFunc FUNCTION PF.Init() Activate Screen ? 'MyPageFrame Init' This.Page4.AddObject('CntGrid', 'MyCnt') EndFunc EndDefine Define Class MyPageFrame As PageFrame Add Object Page1 As Page Add Object Page2 As Page Add Object Page3 As Page Add Object Page4 As Page EndDef Define Class MyCnt As container ADD Object Text As MyText Visible = .T. && Deleting this line the uienable don't fire during the init of pageframe EndDef Define Class MyText As TextBox Function UiEnable(lEnable) If lEnable Activate Screen ? 'Text UiEnable' EndIf ENDFUNC ENDDEFINE