loForm = CREATEOBJECT([ParentForm]) loForm.Show() loForm.Frame() READ EVENTS DEFINE CLASS ParentForm AS Form #IF .F. LOCAL This AS ParentForm OF SizableFrame.prg #ENDIF Height = 300 Left = 0 Top = 0 Width = 300 *MDIForm = .T. oFrame = null PROCEDURE init This.oFrame = CREATEOBJECT([ChildForm]) ENDPROC PROCEDURE Frame WITH This.oFrame * .Visible = .T. SHOW WINDOW (.Name) IN (This.Caption) ENDWITH ENDPROC PROCEDURE Destroy This.oFrame = NULL CLEAR EVENTS ENDPROC ENDDEFINE DEFINE CLASS ChildForm as Form Height = 200 Left = 6 Top = 6 Width = 200 ControlBox = .F. Caption = [] HalfHeightCaption = .t. MaxButton = .F. Minbutton = .F. *Movable = .F. *MDIForm = .T. ENDDEFINE