Animovaná čiara

Objekt <hr id=Ciara size=5 width="20" style="COLOR: red">
Ukážka
Script <SCRIPT LANGUAGE=vbscript><!--
dim i,z
Sub window_onload
z=1
a=window.setInterval("Animuj",100)
End Sub

Sub Animuj
i=i+10*z
Ciara.width=i
if i>200 then z=-1
if i<20 then z=1
End Sub
--></SCRIPT>