Анимированная иконка в системном трее

#Include <GUIConstantsEx.au3>
#Include <SliderConstants.au3>
#Include <StaticConstants.au3>
#Include <WindowsConstants.au3>

#include "Animate.au3"

Opt('MustDeclareVars', 1)
Opt('TrayAutoPause', 0)

Global $Button, $Slider, $Msg

_Animate_LoadFromFile(@ScriptDir & '\Flag.png')

;~For $i = 1 To 12
;~  _Animate_AddIcon(@ScriptDir & '\Flag\' & $i & '.ico', 0)
;~Next

_Animate_SetDelay(50)
_Animate_ShowIcon()

GUICreate('Animation Test', 400, 110)
GUICtrlCreateLabel('Fast', 10, 30, 28, 14, $SS_RIGHT)
GUICtrlCreateLabel('Slow', 355, 30, 28, 14)
$Slider = GUICtrlCreateSlider(42, 25, 310, 26, BitOR($TBS_AUTOTICKS, $WS_TABSTOP))
GUICtrlSendMsg(-1, $TBM_SETTICFREQ, 10, 0)
GUICtrlSetLimit(-1, 250, 10)
GUICtrlSetData(-1, 50)
$Button = GUICtrlCreateButton('Start', 160, 75, 80, 25)
GUICtrlSetState(-1, BitOR($GUI_DEFBUTTON, $GUI_FOCUS))
GUISetState()

While 1
	$Msg = GUIGetMsg()
	Switch $Msg
		Case $GUI_EVENT_CLOSE
			ExitLoop
		Case $Slider
			_Animate_SetDelay(GUICtrlRead($Slider))
		Case $Button
			If _Animate_IsAnimate() Then
				GUICtrlSetData($Button, 'Start')
				_Animate_Stop()
			Else
				GUICtrlSetData($Button, 'Stop')
				_Animate_Start()
			EndIf
	EndSwitch
WEnd