MisEfectos v1.0 - Effects with Autoit GUI

#NoTrayIcon
#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.8.1
 Author:      Jesux Herrera - AutoitHacks Admin
 WebPage:     www.autoithacks.tk
 Twitter:     www.twitter.com/JesuxHerrera
 Email:       [email protected]
 Post:        http://www.autoithacks.tk/2012/05/misefectos-v1-0-efectos-con-guis-en-autoit/

 Script Function:
              Tipo de Efecto horizontal y vertical en la ventana (GUI).
          Dedicado a mi siempre amada Maricela Puente <3

#ce ----------------------------------------------------------------------------
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>

Local $gui = GUICreate("Mis Efectos :D - www.autoithacks.tk", 357, 149)
Local $Button1 = GUICtrlCreateButton("Cerrar em Horizontal", 96, 24, 179, 25)
$Button2 = GUICtrlCreateButton("Cerrar en Vertical", 96, 56, 179, 25)
$Label1 = GUICtrlCreateLabel("www.autoithacks.tk", 120, 112, 130, 18)
GUICtrlSetFont(-1, 9, 400, 0, "Verdana")
$Group1 = GUICtrlCreateGroup("", 8, 96, 337, 41)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("", 8, 8, 337, 81)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)

Local $pos = WinGetPos($gui)
Local $rgn
Local $i = 1
Do
$rgn = _WinAPI_CreateRoundRectRgn(0, 0, 370 , $i , 0 ,  357)
_WinAPI_SetWindowRgn($gui, $rgn)
Sleep(1)
$i = $i + 1
Until $i = 200

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        Case $Button1
                Local $i = 149
                  Do
                   $rgn = _WinAPI_CreateRoundRectRgn(0, 0, 370 , $i , 0 ,  357)
                   _WinAPI_SetWindowRgn($gui, $rgn)
                   Sleep(1)
                   $i = $i - 1
                Until $i = 0
                Exit

        Case $Button2
                Local $i = 370
                  Do
                   $rgn = _WinAPI_CreateRoundRectRgn(0, 0, $i , 200 , 0 ,  357)
                   _WinAPI_SetWindowRgn($gui, $rgn)
                   Sleep(1)
                   $i = $i - 1
                Until $i = 0
                Exit

    EndSwitch
WEnd