***** _screen.Visible = .f. ***** oForm = Createobject('myForm') oForm.Show Read Events ***** _screen.Visible = .t. **** Define Class myForm As Form BorderStyle = 0 Width = 260 Height = 260 TitleBar = 0 DoCreate = .T. ****** ShowWindow = 2 ***** Add Object btnExit As CommandButton With ; Height = 30, Width = 40, Left = 110, Top = 115, Caption = 'Exit' Procedure Init Declare Integer CreateEllipticRgn In gdi32 ; INTEGER X1 , Integer Y1 , Integer X2 , Integer Y2 Declare Integer SetWindowRgn In user32 ; INTEGER HWnd, Integer hRgn , Integer bRedraw Set library to home()+'Foxtools.fll' This.Caption = sys(2015) SetWindowRgn(_WhToHWnd(_WFindTitl(this.caption)), ; CreateEllipticRgn(0,0, This.Width, This.Height), 1) Endproc Procedure btnExit.Click Clear Events Thisform.Release Endproc Enddefine