Postupné prefarbovanie textu
Ukážka SomrSoftware
Script <SCRIPT LANGUAGE="VBScript"><!--
dim Timeout
dim Farba
dim Skok
Farba=&H100000'prve dvojcislie musi byt minimalne 10
Sub mojText_OnMouseOver()
Skok=&H000011
Timeout = SetTimeout("MenFarbu",100)
End Sub

Sub mojText_OnMouseOut()
Skok=-&H000011
Timeout = SetTimeout("MenFarbu",100)
End Sub

Sub MenFarbu
Farba = Farba + Skok
if Farba>&H1000ff then Farba=&H1000ff:exit sub
if Farba<&H100000 then Farba=&H100000:exit sub
mojText.Color = Farba
Timeout = SetTimeout("MenFarbu",100)
End Sub
--></SCRIPT>
Objekt <Font size="6" ID="mojText">SomrSoftware</Font>