************************************************** *-- Form: form1 (c:\program files\microsoft visual foxpro 9\testpagecaptions.scx) *-- ParentClass: form *-- BaseClass: form *-- Time Stamp: 06/23/04 08:52:09 PM * DEFINE CLASS form1 AS form Top = 0 Left = 0 Height = 574 Width = 793 DoCreate = .T. Caption = "Form1" WindowState = 2 Name = "Form1" ADD OBJECT pageframe1 AS pageframe WITH ; ErasePage = .T., ; PageCount = 2, ; Top = 156, ; Left = 216, ; Width = 517, ; Height = 353, ; Name = "Pageframe1", ; Page1.Caption = "page1", ; Page1.Name = "Page1", ; Page2.Caption = "Page2", ; Page2.Name = "Page2" ADD OBJECT command1 AS commandbutton WITH ; Top = 180, ; Left = 96, ; Height = 37, ; Width = 109, ; Caption = "Command1", ; Name = "Command1" ADD OBJECT label1 AS label WITH ; Caption = "Label1", ; Height = 60, ; Left = 216, ; Top = 84, ; Width = 265, ; Name = "Label1" ADD OBJECT label2 AS label WITH ; AutoSize = .F., ; WordWrap = .T., ; Caption = ['Check the contents of the label below and of the page1 caption after clicking the command button. The label reads " first second third " but the page reads " third second first. "'], ; Height = 60, ; Left = 204, ; Top = 0, ; Width = 360, ; Name = "Label2" PROCEDURE Form1.Command1.Click With this.Parent .pageframe1.page1.caption = "first "+chr(10)+"second "+chr(10)+"third " .label1.caption = "first "+chr(10)+"second "+chr(10)+"third " endwith ENDPROC ENDDEFINE * *-- EndDefine: form1 **************************************************Thanx