Некорректная работа TraySetOnEvent с $TRAY_EVENT_PRIMARYDOWN

#NoTrayIcon
#include <Constants.au3>

Opt("TrayOnEventMode", 1)
Opt("TrayMenuMode", 1+2) ; Default tray menu items (Script Paused/Exit) will not be shown.

TrayCreateItem("Exit")
TrayItemSetOnEvent(-1, "ExitEvent")

TraySetOnEvent($TRAY_EVENT_PRIMARYDOWN, "SpecialEvent")
TraySetOnEvent($TRAY_EVENT_PRIMARYUP, "SpecialEvent")
TraySetState()
TraySetClick(16)

While 1
	Sleep(10) ; Idle loop
WEnd

Func SpecialEvent()
	Switch @TRAY_ID
		Case $TRAY_EVENT_PRIMARYDOWN
			MsgBox(64, "SpecialEvent-Info", "Primary mouse button pressed down.")
		Case $TRAY_EVENT_PRIMARYUP
			MsgBox(64, "SpecialEvent-Info", "Primary mouse button clicked.")
	EndSwitch
EndFunc

Func ExitEvent()
	Exit
EndFunc