#include <guiconstants.au3>
$form=GUICreate("Orologio",300,200,240,150)
GUISetBkColor(0x008030)
$Label = GUICtrlCreateLabel("Orologio", 90, 20, 200, 50)
GUICtrlSetFont(-1, 20, 900, 2, "Comic Sans MS")
$Label2 = GUICtrlCreateLabel("Ora:", 50, 80, 82, 23)
GUICtrlSetFont(-1,12,900,0,"comic sans ms")
$input=GUICtrlCreateInput("",90,80,90,25)
GUICtrlSetFont(-1,9,0,0,"comic sans ms")
$label3=GUICtrlCreateLabel("Data:",40,150,82,23)
GUICtrlSetFont(-1,12,900,0,"comic sans ms")
$input2=GUICtrlCreateInput(@mday&"/"& @mon&"/"&@YEAR,90,150,90,25)
GUICtrlSetFont(-1,9,0,0,"comic sans ms")
$nMsg = GUIGetMsg()
GUISetState(@SW_SHOW)
While 1
GUICtrlSetData($Input,@HOUR&":"&@MIN&":"&@SEC)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd