LOCAL loForm loForm = CREATEOBJECT("TestForm") loForm.Show READ EVENTS RETURN DEFINE CLASS TestForm AS Form TitleBar = 0 ShowWindow = 2 PROCEDURE Destroy CLEAR EVENTS ENDPROC ADD OBJECT cmdClose AS CloseButton ENDDEFINE DEFINE CLASS CloseButton AS CommandButton Height = 22 Width = 60 Caption = "\<Close" PROCEDURE INIT this.Top = thisform.Height - 24 this.Left = thisform.Width - 66 ENDPROC PROCEDURE CLICK thisform.Release() ENDPROC ENDDEFINE