程序代码：

DECLARE long GetWindowLong IN user32 long,long
DECLARE long SetWindowLong IN user32 long,long,long
of = CREATEOBJECT("form1")
of.show(1)
RETURN

DEFINE CLASS form1 as Form
    ADD OBJECT cmd as commandbutton 
    PROCEDURE init
        SetWindowLong(this.HWnd, -16, BITAND(GetWindowLong(this.HWnd,-16), BITNOT(0x80000)))
    ENDPROC
    PROCEDURE cmd.click
        thisform.release
    ENDPROC 
ENDDEFINE

程序代码：

DECLARE long SendMessage IN User32 long,long,long,long
of = CREATEOBJECT("form1")
of.show
READ EVENTS 
RETURN

DEFINE CLASS form1 as Form
    ShowWindow = 2
    AutoCenter = 1
    
    PROCEDURE Destroy
        CLEAR EVENTS 
    ENDPROC
    
    PROCEDURE Init
        BINDEVENT(this.hWnd, 0x00A4, this, "myMenuMsg")    && WM_NCRBUTTONDOWN    equ 00A4h
        BINDEVENT(this.hWnd, 0x0112, this, "myMenuMsg")    && WM_SYSCOMMAND       equ 0112h
    ENDPROC

    PROCEDURE myMenuMsg(hWnd, Msg, wParam, lParam)
        IF (Msg==0x00A4) OR (Msg==0x0112 AND wParam==0xF093)
            RETURN 
        ENDIF 
        SendMessage(hWnd, Msg, wParam, lParam)
    ENDPROC
ENDDEFINE