Do Until Example - au3 Script - Effect on Window

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.8.1
 Author: Jesux Herrera - www.autoithacks.tk
 Script Function: Ejemplo de Do Until.

#ce ----------------------------------------------------------------------------
#include <buttonconstants.au3>
#include <guiconstantsex.au3>
#include <windowsconstants.au3>
;Aqui se terminan de agregar las librerias necesarias

$DoUntilExample = GUICreate("Ejemplo Do Until", 290, 212, -1, -1) ;Aqui se crea nuestra ventana (GUI)
$Close = GUICtrlCreateButton("Cerrar", 72, 56, 155, 89) ;Aqui e crea el boton de Cerrar
WinSetTrans($DoUntilExample, "", 0)
GUISetState(@SW_SHOW) ; Aqui la ventana se muestra al cargar todo lo anterior

;Aqui empieza el Do Until
;Cuando la ventana inicie esta sera invisible y poco a poco se volvera solida
;Esto eso que crea el efecto
;----------------------------------------------------------
Local $variable1Local $variable2

$variable1 = 0
$variable2 = 255

Do
    WinSetTrans($DoUntilExample,"",$variable1)
    $variable1 = $variable1 +1
Until  $variable1 = 255
;----------------------------------------------------------


While 1 ;Aqui empieza nuestro ciclo
     $nMsg = GUIGetMsg()
            Switch $nMsg
                  Case $GUI_EVENT_CLOSE ; Representa al boton de Cerrar en la ventana
                  Exit

                      Case $Close ;Este es el boton de Cerrar
                       ; De nuevo empezamos el Do Until
                       ; La ventana al cerrarse se volvera trnsparente hasta quedar invisible de nuevo
                       ;Al volverse invisible completamente al final se cerrara el programa
                       ;----------------------------------------------------------
                       Do
                          WinSetTrans($DoUntilExample,"", $variable2)
                           $variable2 = $variable2 -1
                           Until $variable2 = 0
                           Exit
                        ;----------------------------------------------------------
                        ;Aqui termina el Efecto de Do Until en la Ventana                        ;Nuestro Ciclo termina y se cierra el programa.

EndSwitch
WEnd