Dim objMover ' as object
  Dim bolInAction ' as boolean
  Dim intDifferenceX ' as integer
  Dim intDifferenceY ' as integer
  bolInAction = False

Sub document_onMousedown
	doDragDropAction("MouseDown")
End Sub

Sub document_onMouseMove()
	doDragDropAction("MouseMove")
End Sub

Sub document_onMouseUp()
	doDragDropAction("MouseUp")
End Sub

Function document_onDragStart()
  If bolInAction Then document_onDragStart = False
End Function

Function document_onSelectStart()
  If bolInAction Then document_onSelectStart = False
End Function

Function doDragDropAction(strAction)
  On Error Resume Next
  If left(navigator.appVersion,1) < 4 Then Exit Function
  Select Case strAction
  
   Case "MouseDown"
		Dim bolCancel ' as boolean
		Dim objElement ' as object
		If Not IsObject(window.event.srcElement) Then Exit Function
		Set objElement = window.event.srcElement
		bolCancel = IsNull(objElement.getAttribute("DragDropEnabled")) 

		Do Until bolCancel = False Or objElement.tagName = "BODY"
			Set objElement = objElement.ParentElement
			If Not IsObject(objElement) Then Exit Function
			bolCancel = IsNull(objElement.getAttribute("DragDropEnabled"))
		Loop
		
		If Not bolCancel Then 
			Set objMover = objElement
			bolInAction = True
			if window.event.x > 0 then 
				if window.event.x < (document.body.clientWidth - 60) then 
					intDifferenceX = window.event.x - objMover.style.pixelLeft
				else 
					intDifferenceX = (document.body.clientWidth - 60) - objMover.style.pixelLeft				
				end if
			end if				
		End If
		
   Case "MouseMove"
		If Not (bolInAction) Then Exit Function
			if window.event.x > 60 then 
				if window.event.x < (document.body.clientWidth - 60) then
					objMover.style.Left = window.event.x - intDifferenceX
				else 
					objMover.style.Left = (document.body.clientWidth - 60) - intDifferenceX
				end if
			else
				objMover.style.Left = 60
			end if					

   Case "MouseUp"
		bolInAction = False: Set objMover = Nothing

  End Select
End Function