*****
_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