function hs_menuSubItem(idx)
	dim i
	if cntMenuHead(idx).style.display = "block" then
		cntMenuHead(idx).style.display = "none"
		exit function
	end if
	for i = 0 to cntMenuHead.length - 1
		cntMenuHead(i).style.display = "none"
	next
	cntMenuHead(idx).style.display = "block"
end function