VBScript/文字の影を動かす

　文字の後ろを白抜きの影が移動します。Webサイトのタイトルなんかに使えるかな？

DropShadow.html

<SCRIPT Language=VBScript><!--
  Dim offX,offY
  Sub Window_onLoad()
    setInterval "Drop()",100
  End Sub
  Sub Drop()
    offX=offX+1
    offY=offY+1
    If offX>70 Then offX=-70
    If offY>70 Then offY=-70
    Target.filters.DropShadow.offX=offX
    Target.filters.DropShadow.offY=offY
    Target.filters.DropShadow.Positive=0
  End Sub
//--></SCRIPT>
<DIV ID="Target" Style="Width:100%;Font-Size:72;Font- Weight:900;Color:LightGreen;
  Filter:DropShadow (Color=Gray,offx=0,offy=0,Positive=1)">
DropShadow 
</DIV>