PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN DEFINE CLASS form1 AS form Height = 194 Width = 339 DoCreate = .T. Caption = "Form1" BackColor = RGB(255,0,0) PROCEDURE Resize WITH this.Pageframe1 .move(10,10,.Parent.Width-20,.Parent.height-20) WITH .Page1.Container1 .Style = 3 .move(10,10,.Parent.Parent.PageWidth-20,.Parent.Parent.Pageheight-20) .Label1.move(10,10,.Width-20,.height-20) ENDWITH ENDWITH ENDPROC PROCEDURE Init this.AddObject('pageFrame1','pageframe') WITH this.Pageframe1 .PageCount = 1 WITH .Page1 .AddObject('Container1','container') WITH .Container1 .Style = 3 && <== Container is themed .AddObject('Label1','label') .Label1.Style = 3 && <== Label is themed ENDWITH ENDWITH ENDWITH this.SetAll('Visible',.T.) this.Resize ENDPROC ENDDEFINEThanks,