dim i,Fond
i=-1
Fond=document.body.sourceIndex
sub SF
i=i-2
Document.all(Fond).style.BackgroundPosition= "0 " &i
id=SetTimeOut("SF",64,"VBScript")
end sub
SF