Scripts - Background subindo **

Background subindo

Copie o código e cole entre <body> e </body>

Para ver o efeito coloque um plano de fundo/wallpaper

<SCRIPT language=VBScript> dim z,numfond z=-100000 numfond=document.body.sourceIndex sub SF z=z-1 Document.all(numfond).style.BackgroundPosition= "0 " &z id=SetTimeOut("SF",64,"VBScript") end sub SF </SCRIPT>