dim lmenu
dim lsrc
dim iszMax, iszY, isz
dim LastAnim

Function setSrc(source)
	set lsrc = source
End Function


Function showMenu(nMenu)

	if LastAnim > 0 then ClearInterval(lastAnim)
	if lMenu <> empty then 
		lMenu.style.visibility = "hidden"
		lMenu.style.pixelHeight = iszY
	end if
	set lMenu = nMenu
	'lMenu.style.pixelleft = lsrc.offsetleft +10
	'lMenu.style.pixeltop = lsrc.offsettop + lsrc.offsetheight+16
	lMenu.filters.alpha.opacity=0

	lMenu.style.visibility = "visible"

	LastAnim = setInterval("mnuAnim", 50)
	isz = 0
	iszY = lMenu.style.pixelHeight
	iszMax = 100
lMenu.style.pixelHeight = iszY
End Function

Function mnuAnim()
	
Dim x,y,a

	isz = isz + 20	
	x = iszX * (isz/iszMax)
	y = iszY * (isz/iszMax)
	a = 75 * (isz/iszMax)

	if isz => iszMax then
		clearinterval(LastAnim)					
		lMenu.style.pixelHeight = iszY
		LastAnim = 0
	end If
	
	lMenu.filters.alpha.opacity = a
	lMenu.style.pixelHeight = y
end Function