Button in GUI bewegen lassen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

Global $posx = 0, $posy = 0

[/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=
$dda = 0
$Form1 = GUICreate("Form1", 500, 470)
GUISetBkColor(0xFFFFFF)
$KlickMich = GUICtrlCreateButton("KlickMich", 0, 0, 50, 20, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

AdlibEnable("ChangePos", 10)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $KlickMich
msgbox(0,"", "Erwischt")
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func ChangePos()
$posx += 1
$posy += 1
GUICtrlSetPos( $KlickMich, $posx ,$posy)
If $posx = 450 Then
$posx = 0
$posy = 0
EndIf
EndFunc

[/autoit]