Script stops with dateselector or menu

[funkey]

#include <DateTimeConstants.au3>

GUICreate("Date", 350, 70)

GUICtrlCreateMenuItem("Test", GUICtrlCreateMenu("Test"))
GUICtrlCreateDate("", 20, 15, 200, 20)
$time = GUICtrlCreateLabel(@HOUR & ":" & @MIN & ":" & @SEC, 250, 15, 100, 20, 0x201)

GUISetState()
AdlibEnable("_Time", 1000)

Do
Until GUIGetMsg() = -3

Func _Time()
GUICtrlSetData($time, @HOUR & ":" & @MIN & ":" & @SEC)
EndFunc

Edit: Sorry, i found it: _Timer_SetTimer works!!

#include <DateTimeConstants.au3>
#Include <Timers.au3>

$hGui = GUICreate("Date", 350, 70)

GUICtrlCreateMenuItem("Test", GUICtrlCreateMenu("Test"))
GUICtrlCreateDate("", 20, 15, 200, 20)
$time = GUICtrlCreateLabel(@HOUR & ":" & @MIN & ":" & @SEC, 250, 15, 100, 20, 0x201)

GUISetState()

$timer = _Timer_SetTimer($hGui, 1000, "_Time")

Do
Until GUIGetMsg() = -3

Func _Time($hWnd, $Msg, $iIDTimer, $dwTime)
 GUICtrlSetData($time, @HOUR & ":" & @MIN & ":" & @SEC)
EndFunc

_Timer_KillTimer($hGui, $timer)

Edited November 26, 2009 by funkey