Presúvaj objekty
Haf haf...
CSS <STYLE type="text/css"><!--
span {
font-size: 24px;
position: absolute;
left:35%;
top: 110px;
width: 104px;
height: 29px;
cursor: hand;}
.obr {
position: absolute;
left: 50%;
top: 117px;
background-image: url(macka.gif);
height: 32px;
width: 32px;
z-index: 1;
cursor: hand;}
.ram {
height: 200px;
text-align: center;}
--></STYLE>
VBScript <SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript><!--
dim A,Bx,By,Obj
Function ZistiObjekt()
set obj=window.event.srcElement
A=true
Bx=window.event.x - Obj.offsetLeft
By=window.event.y - Obj.offsetTop
End Function

Sub document_onmousemove
if a=true then
x=window.event.x
y=window.event.y
obj.style.left=x-Bx
obj.style.top=y-By
end if
End Sub

Sub document_onmouseup
A=false
set Obj=nothing
End Sub
Sub text_onmousedown
ZistiObjekt
End Sub
Sub obrazok_onmousedown
ZistiObjekt
End Sub
--></SCRIPT>
Objekty <div class="ram" >Presúvaj objekty</div>
<div class="obr" id="obrazok"> </div>
<SPAN id=text>Haf haf...</SPAN>