Rozostup písmen

Objekt <h1 id=Medzera style="letter-spacing: 10">T
<font color="#0000FF">O</font>
<font color="#00FFFF">M</font>
<font color="#FFFF00">A</font>
<font color="#00FF00">S</font>
</h1>
Ukážka

TOMAS

Script <SCRIPT LANGUAGE=vbscript><!--
dim z,i
Sub window_onload
z=1
a=window.setInterval("Animuj",20)
End Sub

Sub Animuj
i=i+1*z
Medzera.style.letterSpacing=i
if i>20 then z=-1
if i<-60 then z=1
End Sub
--></SCRIPT>