>CLEAR >CLOSE ALL >set talk OFF >set confirm ON >set NOTIFY on >set status bar ON > >llcontinue = .T. >cvalue = '' >cvalue1 = '' >cvalue2 = '' >cvalue3 = '' >cvalue4 = '' >cvalue5 = '' >cvalue6 = '' > >oform = CREATEOBJECT('TESTFORM') >WITH oform.pageframe1.page1 > .AddObject('text1','Textbox') >ENDWITH >WITH oform.pageframe1.page1.text1 > .visible = .T. > .controlsource = 'cvalue' > .top = 20 > .left = 125 > .height = 23 > .width = 100 >ENDWITH >WITH oform.pageframe1.page2 > .AddObject('text2','Textbox') >ENDWITH >WITH oform.pageframe1.page2.text2 > .visible = .T. > .controlsource = 'cvalue2' > .top = 20 > .left = 125 > .height = 23 > .width = 100 >ENDWITH >WITH oform.pageframe1.page3 > .AddObject('text3','Textbox') >ENDWITH >WITH oform.pageframe1.page3.text3 > .visible = .T. > .controlsource = 'cvalue3' > .top = 20 > .left = 125 > .height = 23 > .width = 100 >ENDWITH > >oform.show() > >DO WHILE llcontinue > READ EVENTS >ENDDO > >oform = null >RELEASE oform > >return > > >DEFINE CLASS testform AS form > > > Top = 0 > Left = 0 > Height = 250 > Width = 494 > DoCreate = .T. > Caption = "Test Form" > Name = "Form1" > > > ADD OBJECT pageframe1 AS pageframe WITH ; > ErasePage = .T., ; > PageCount = 6, ; > Top = 12, ; > Left = 24, ; > Width = 444, ; > Height = 204, ; > Name = "Pageframe1", ; > Page1.Caption = "Page1", ; > Page1.Name = "Page1", ; > Page2.Caption = "Page2", ; > Page2.Name = "Page2", ; > Page3.Caption = "Page3", ; > Page3.Name = "Page3", ; > Page4.Caption = "Page4", ; > Page4.Name = "Page4", ; > Page5.Caption = "Page5", ; > Page5.Name = "Page5", ; > Page6.Caption = "Page6", ; > Page6.Name = "Page6" > > ADD OBJECT command1 AS commandbutton WITH ; > Top = 219, ; > Left = 204, ; > Height = 27, ; > Width = 84, ; > Caption = "Close", ; > Name = "Command1" > > PROCEDURE command1.Click > wait WINDOW "cvalue = " + cvalue && this displays the entered value in my testing but not at the user's site > thisform.release() > ENDPROC > > PROCEDURE destroy > CLEAR EVENTS > llcontinue = .F. > ENDPROC > >ENDDEFINE >>