Fondo estático con efecto animado

Este código crea el efecto de una imagen estática como si tuviera animación propia, como un gif animado.

 

  <SCRIPT language=VBScript>
dim i, pic
i = -100000
pic = document.body.sourceIndex
sub scrollBG
i=i+50
Document.all(pic).style.BackgroundPosition= "0 " & i
id=SetTimeOut("scrollBG", 64, "VBScript")
end sub
scrollBG
  </SCRIPT>