%HI_SetGraphTimeZoneColor(
 INT in _refId
 INT in _zoneId
 INT in _zoneColor
 )

 ENTRY  TimeZones_OnClick
 TIME _gbt
 TIME _get
 
 _get := %NextTime(3600, 3600, 0)
 _gbt := %SubTime(_get,8*3600)
 
 %HI_SetGraphTimes(_Graph, _gbt, _get, @TRUE)
 %HI_SetGraphTimeZone(_Graph,1, %AddTime(_gbt,%StrToRelTime("01:00:00")), %AddTime(_gbt,%StrToRelTime("02:00:00")))
 %HI_SetGraphTimeZone(_Graph,2, %AddTime(_gbt,%StrToRelTime("03:00:00")), %AddTime(_gbt,%StrToRelTime("04:00:00")))
 %HI_SetGraphTimeZone(_Graph,3, %AddTime(_gbt,%StrToRelTime("05:00:00")), %AddTime(_gbt,%StrToRelTime("06:00:00")))
 %HI_SetGraphTimeZoneColor(_Graph,1, %MakeRGB(0, 127, 0))
 %HI_SetGraphTimeZoneColor(_Graph,3, %MakeRGB(255, 0, 0))
 %HI_SetGraphTimeZoneVisible(_Graph,2, @FALSE)
 
 END TimeZones_OnClick