XProfan

Windowstyle 30
Window Title "Per Double-click on the Titelleiste on and To klappen"
CLS
Declare show&, b#
User Messages $A3'WM_NCLBUTTONDBLCLK

While 1

    Waitinput

    If (%umessage=$A3)

        Dim b#,16
        External("USER32", "GetWindowRect",%hwnd,b#)
        SetWindowPos %hwnd=Long(b #,0),Long(b #,4) - (Long(b #,8)-Long(b #,0)),IF(show&,show&,0)
        show&=IF(show&,0,Long(b #,12)-Long(b #,4))
        Dispose b#

    Endif

EndWhile