PUBLIC oform1, oForm2 oform1=NEWOBJECT("Test") oform1.Show RETURN ************************************************** *-- Form: form1 (d:\all_zapl\test.scx) *-- ParentClass: form *-- BaseClass: form *-- Time Stamp: 02/27/06 09:40:06 PM * #INCLUDE "d:\all_zapl\include\aladin.h" * DEFINE CLASS Test AS form DoCreate = .T. Caption = "Test main" Dockable = 1 Name = "Test" ADD OBJECT command1 AS commandbutton WITH ; Top = 73, ; Left = 213, ; Height = 27, ; Width = 84, ; Caption = "Press me :-)", ; Name = "Command1" PROCEDURE command1.Click oForm2 = NEWOBJECT([Test1]) oForm2.Show() oForm2.Dock(4, thisform) ENDPROC ENDDEFINE * *-- EndDefine: form1 ************************************************** ************************************************** *-- Form: form1 (d:\all_zapl\test1.scx) *-- ParentClass: form *-- BaseClass: form *-- Time Stamp: 02/27/06 09:41:07 PM * * DEFINE CLASS Test1 AS form DoCreate = .T. Caption = "Second test" Dockable = 1 Name = "Test1" ADD OBJECT edit1 AS editbox WITH ; Height = 152, ; Left = 136, ; Top = 29, ; Width = 155, ; Name = "Edit1" ENDDEFINE * *-- EndDefine: form1 **************************************************