#include <GUIConstantsEx.au3>
Local $hGui, $Date, $msg
$hGui = GUICreate("Календарь", 410, 490)
Opt("GUIResizeMode", 102)
$Date = GUICtrlCreateMonthCal("2012/05/25", 10, 10,250,250)
GUISetState()
; Запускается цикл опроса GUI до тех пор пока окно не будет закрыто or timeout
Do
$msg = GUIGetMsg()
If $msg = $Date Then MsgBox(0, "Клик в календаре", GUICtrlRead($Date), 0, $hGui)
Until $msg = $GUI_EVENT_CLOSE