sub SetMenuBGColor
	set objEvent = window.event.srcElement
	'while ( objEvent.tagName <> "TD" )
	'	set objEvent = objevent.offsetParent
	'wend
	
	if objEvent.classname = "TocText" then
		objEvent.classname = "TocTextHL"
	else
		objEvent.classname = "TocText"
	end if
end sub

sub SetMenuBGColor2
	set objEvent = window.event.srcElement
	'while ( objEvent.tagName <> "TD" )
	'	set objEvent = objevent.offsetParent
	'wend
	
	if objEvent.classname = "HTocText" then
		objEvent.classname = "HTocTextHL"
	else
		objEvent.classname = "HTocText"
	end if
end sub

sub SetsubMenuBGColor
	set objEvent = window.event.srcElement
	
	if objEvent.classname = "subTocText" then
		objEvent.classname = "subTocTextHL"
	else
		objEvent.classname = "subTocText"
	end if
end sub