dim Pasadas
	dim Intervalo
	
	sub Mover(Capa,Inicio,Fin,Tiempo)
		const CONST_PERIODO = 25 //en milisegundos
		clearInterval
		Pasadas = 0
		dim incremento
		inicio = replace(inicio,"px","")
		fin = replace(fin,"px","")
		//Calculamos el incremento:
		incremento = ((300) * CONST_PERIODO) / tiempo
		//subimos el resto de las capas:
		for each obTemp in document.all
			if ucase(obTemp.tagName) = "DIV" and ucase(left(obTemp.Id,5)) = "MENU-" then
				
				obTemp.style.clip = "rect(auto auto 0 auto)"
			end if
		next
		
		//Movemnos la capa:
		Intervalo = setInterval("RelojMover '" & capa & "'," & replace(incremento,",",".") & "," & fin ,CONST_PERIODO,"vbscript")
	end sub
	
	sub RelojMover(capa,incremento,maximo)
		dim numero
		window.status = capa
		if cint(Pasadas * incremento) + 1 < 300 then
			pasadas = pasadas + 1
			document.all(capa).style.clip = "rect(auto auto " & replace((Pasadas * incremento),",",".") & " auto)"
		else
			document.all(capa).style.top = maximo
			clearInterval Intervalo
			exit sub
		end if
	end sub