#include <GUIConstantsEx.au3>
$hGUI = GUICreate("Test Script", 300, 200)
$iMap = GUICtrlCreatePic(@WindowsDir & "\Microsoft.NET\Framework\v4.0.30319\ASP.NETWebAdminFiles\Images\help.jpg", 276, 0, 24, 24)
GUISetState(@SW_SHOW, $hGUI)
$now = 276
$speed = 1
AdlibRegister('_MovePic', 10)
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func _MovePic()
ControlMove($hGUI, '', $iMap, $now - $speed, Default)
$now -= 1
EndFunc