<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript><!--
option explicit
dim i
dim Cx,Cy
dim casovac
dim Uhol
sub animuj()
'Okolo.style.color =rgb(255,int(uhol/2),0)
uhol=uhol+20
if uhol > 360 then uhol=0
Okolo.style.posLeft = Cx+30 * cos(uhol*3.14/180)
Okolo.style.posTop = Cy-30 * sin(uhol*3.14/180)
End Sub

Sub window_onload
casovac= window.setInterval ("animuj",100)'start
End Sub

Sub document_onmousemove
Cx = window.event.x
Cy = window.event.y
End Sub
--></SCRIPT>