GUI Title Effect

#region
#AutoIt3Wrapper_UseUpx=Y
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Icon=E:\wamp\www\favicon.ico
#AutoIt3Wrapper_Res_Comment=Coded by Juno_okyo
#AutoIt3Wrapper_Res_Description=Coded by Juno_okyo
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_ProductVersion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=(c) 2014 by Juno_okyo's Blog
#AutoIt3Wrapper_Res_Field=ProductName|Juno_okyo's Production
#AutoIt3Wrapper_Res_Field=ProductVersion|1.0.0.0
#AutoIt3Wrapper_Res_Field=CompanyName|J2TeaM
#endregion

; Includes
#include <Misc.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

; Only One Instance
_Singleton(@ScriptName)

; Options
#NoTrayIcon
Opt('WinTitleMatchMode', 2)
Opt('GUIOnEventMode', 1)
Opt('GUICloseOnESC', 0)

; Script Start - Add your code below here
#Region ### START Koda GUI section ### Form=
Global $MainForm = GUICreate("AutoIt Title Effect by Juno_okyo ", 330, 200, -1, -1)
GUISetFont(12, 400, 0, "Arial")
GUISetOnEvent($GUI_EVENT_CLOSE, "MainFormClose")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

AdlibRegister('title_effect', 250)

While 1
    Sleep(100)
WEnd

Func title_effect()
    Local $title = WinGetTitle($MainForm)
    WinSetTitle($MainForm, '', StringMid($title, 2) & StringMid($title, 1, 1))
EndFunc

Func MainFormClose()
    Exit
EndFunc