PUBLIC oform1 parentWindow = "" oform1=CREATEOBJECT("genericForm") oform1.Show parentWindow = m.oform1.Name oform1.Addproperty("ChildForm",CREATEOBJECT("genericForm")) oform1.ChildForm.sHOW RETURN DEFINE CLASS genericForm AS form ShowWindow = 2 Caption = "Generic" PROCEDURE Load this.Name = 'Fm'+SYS(2015) && this is incorrect, but for this test it is sufficient this.AddProperty("tb",CREATEOBJECT("toolbar")) WITH m.this.tb .dock(0) .Caption = 'tb'+m.this.Name SHOW WINDOW (.caption) IN (m.this.Name) ENDWITH IF !EMPTY(m.parentWindow) ? "BEFORE ",this.ShowWindow SHOW WINDOW (m.this.Name) IN (m.parentWindow) * NOW THE FORM IT IS DECLASSED TO A SIMPLE CHILD FORM ? "AFTER ",this.ShowWindow ELSE DEFINE MENU ('MM'+M.THIS.NAME) BAR IN (M.THIS.NAME) DEFINE PAD pa1 OF ('MM'+M.THIS.NAME) PROMPT 'TEST' ACTIVATE MENU ('MM'+M.THIS.NAME) ENDIF ENDPROC ENDDEFINEFabio