>DEFINE CLASS formset1 AS formset >DataSession = 1 > AutoRelease = .T. > WindowType = 1 > Name = "Formset1" > ADD OBJECT form1 AS form WITH ; > Top = 0, ; > Left = 0, ; > Height = 574, ; > Width = 799, ; > DoCreate = .T., ; > Caption = "Form1", ; > TitleBar = 0, ; > WindowState = 2, ; > Name = "Form1" > ADD OBJECT form2 AS form WITH ; > Top = 0, ; > Left = 0, ; > Height = 250, ; > Width = 381, ; > DoCreate = .T., ; > Caption = "Form2", ; > Visible = .F., ; > TitleBar = 0, ; > Name = "Form2" > PROCEDURE Load > _screen.caption = "test" > set sysmenu to > ENDPROC >ENDDEFINE >* >*-- EndDefine: formset1 >************************************************** >>