public loForm loForm = CreateObject('myForm') loForm.Show() define class myForm as Form oChildForm = null BorderStyle = 3 procedure Resize() DoDefault() this.setChildPosition() endproc procedure Destroy() if Type('this.oChildForm.Name') = 'C' this.oChildForm.Release() endif endproc procedure setChildPosition() with this.oChildForm as Form .Top = this.Height + this.Top - .Height - 1 .Left = this.Width + this.Left - .Width - 1 endwith endproc function init() as Boolean this.oChildForm = CreateObject('Form') with this.oChildForm as Form .Name = 'ChildForm' .AlwaysOnTop = .t. .Height = 40 .Width = 100 .BorderStyle = 1 .TitleBar = 0 .BackColor = 127 .BorderStyle = 0 .NewObject('txtStatus', 'TextBox') .txtStatus.Left = 1 .txtStatus.Top = 1 .txtStatus.Width = .Width - 2 .txtStatus.Value = 'This is a bogus Status' .txtStatus.Visible = .t. endwith this.setChildPosition() show window (this.oChildForm.Name) in window (this.Name) return .t. endfunc enddefine