XProfan

Windowstyle 30
WindowTitle "Per Doppelklick auf der Titelleiste auf und zu klappen"
CLS
Declare show&, b#
Usermessages $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