Dim blnOverMenu, strCurrentMenu, strCurrentSubMenu
dim tmrEvent

blnOverMenu = False

Sub CBOHide(blnState)
Dim i
	on error resume next
	if blnState then
		For i = 0 to document.all.length - 1
			If trim(lcase(document.all(i).tagname)) = "select" Then
				document.all(i).style.visibility="hidden"
			End If
		Next
	else
		For i = 0 to document.all.length - 1
			If trim(lcase(document.all(i).tagname)) = "select" Then
				document.all(i).style.visibility="visible"
			End If
		Next
	end if
	err.clear
End Sub

Sub EventHandler
	if not blnOverMenu then
		SubMenuHide()
		window.clearInterval tmrEvent
		'CBOHide False
	end if
End Sub
	

Sub SubMenuShow()
dim lngElementNumber, strElement, strSubElement, intXOffSet, intYOffSet

	'CBOHide True
	SubMenuHide()
	strElement = window.event.srcElement.id
	document.getElementById(strElement).className = "MenuItemOver"

	intXOffSet = document.getElementById(strElement).offsetLeft + document.getElementById("tblTOP").offsetLeft
	intYOffSet = document.getElementById(strElement).offsetTop + document.getElementById("tblTOP_ROW_Menu").offsetTop + document.getElementById("tblTOP_ROW_Menu").offsetHeight + 4
	lngElementNumber = mid(strElement, instr(strElement, "_") + 1, instrrev(strElement, "_") - (instr(strElement, "_") + 1))
	strSubElement = "Sub_" & lngElementNumber & "_" & Mid(strElement, instrrev(strElement, "_") + 1)
	strCurrentMenu = strElement
	strCurrentSubMenu = strSubElement


	'Set positioning of drop-down menu
	document.getElementById(strSubElement).style.left = intXOffSet
	document.getElementById(strSubElement).style.top = intYOffSet
	document.getElementById(strSubElement).style.zIndex = 99
	document.getElementById(strSubElement).style.display = ""

	'Set positioning of the Menu Plate
	document.getElementById("ifra_Menu_Plate").style.left = intXOffSet
	document.getElementById("ifra_Menu_Plate").style.top = intYOffSet
	document.getElementById("ifra_Menu_Plate").width = document.getElementById(strSubElement).offsetWidth
	document.getElementById("ifra_Menu_Plate").height = document.getElementById(strSubElement).offsetHeight
	document.getElementById("ifra_Menu_Plate").style.display = ""
	
End Sub

Sub SubMenuHide()
	on error resume next

	document.getElementById("ifra_Menu_Plate").style.display = "none"

	if trim(strCurrentMenu) <> "" then
		document.getElementById(strCurrentMenu).className = "MenuItem"
	end if
	if trim(strCurrentSubMenu) <> "" then
		document.getElementById(strCurrentSubMenu).style.display = "none"
	end if
End Sub

Sub OverMenu(strState)
	if strState = "Yes" then
		blnOverMenu = True
		on error resume next
		window.clearInterval tmrEvent
		tmrEvent = window.setInterval ("EventHandler", 500)
		SubMenuShow()
	else
		blnOverMenu = False
	end if
End Sub

Sub OverEmptyMenu()
dim strElement

	on error resume next
	strElement = window.event.srcElement.id
	SubMenuHide()
	document.getElementById(strElement).className = "MenuItemOver"
	strCurrentMenu = strElement
End Sub

Sub OverSubMenu(strState)
	if strState = "Yes" then
		blnOverMenu = True
		on error resume next
		window.clearInterval tmrEvent
		tmrEvent = window.setInterval ("EventHandler", 500)
	else
		blnOverMenu = False
	end if
End Sub