#include <GUIConstantsEx.au3>

Local $hGui, $Date, $msg
$hGui = GUICreate("Календарь", 210, 190)

$Date = GUICtrlCreateMonthCal("2012/05/25", 10, 10)
GUISetState()

; Запускается цикл опроса GUI до тех пор пока окно не будет закрыто or timeout
Do
	$msg = GUIGetMsg()
	If $msg = $Date Then MsgBox(0, "Клик в календаре", GUICtrlRead($Date), 0, $hGui)
Until $msg = $GUI_EVENT_CLOSE