下面的JAVAS可以实现拖动层，请教用VBS如何实现呢？多谢指点．．．
<script>
var Obj=''
document.onmouseup=MUp
document.onmousemove=MMove

function MDown(Object){
Obj=Object.id
document.all(Obj).setCapture()
pX=event.x-document.all(Obj).style.pixelLeft;
pY=event.y-document.all(Obj).style.pixelTop;
}

function MMove(){
if(Obj!=''){
document.all(Obj).style.left=event.x-pX;
document.all(Obj).style.top=event.y-pY;
}
}

function MUp(){
if(Obj!=''){
document.all(Obj).releaseCapture();
Obj='';
}
}
</script>

function MDown(Object)
Obj=Object.id
document.all(Obj).setCapture()
pX=event.x-document.all(Obj).style.pixelLeft
pY=event.y-document.all(Obj).style.pixelTop
End Function

function MMove()
if Obj<>"" Then
document.all(Obj).style.left=event.x-pX
document.all(Obj).style.top=event.y-pY
End IF
End Function

function MUp()
if Obj<>"" Then
document.all(Obj).releaseCapture()
Obj=""
End IF
End Function
</script>
应该是这样吧？