#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
GUICreate("",500,500)

Local $r = 200
Local $a = 0
Local $a1 = 360

$elemgr = GUICtrlCreateGraphic(0, 0, 500, 500)

GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0x000000, 0xffff00)
while $a < 360
$x = 250+$r*sin($a*(3.14/180))
$y = 250+$r*cos($a*(3.14/180))
GUICtrlSetGraphic(-1, $GUI_GR_ELLIPSE, $x,$y ,5,5)
$a = $a + 5
WEnd
if ($a > 360) then
$r = 200
$a = 0
EndIf

GUISetState(@SW_SHOW)
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop

EndSwitch

WEnd