XProfan

Windowstyle 30
Título de la ventana "Per Haga doble clic en en el Titelleiste en y a klappen"
CLS
Declarar show&, b#
Usermessages $A3'WM_NCLBUTTONDBLCLK

Mientras que 1

    Waitinput

    If (%umessage=$A3)

        Dim b#,16
        Externo("USER32", "GetWindowRect",%hwnd,b#)
        SetWindowPos %hwnd=Largo(b#,0),Largo(b#,4) - (Largo(b#,8)-Largo(b#,0)),IF(show&,show&,0)
        show&=IF(show&,0,Largo(b#,12)-Largo(b#,4))
        Disponer b#

    Endif

EndWhile