#11. hoverMouse

Function hoverMouse(objName)
   Set obj = findObject(objName)   'findObject is a function to return a given object.
   Set dRep = CreateObject("Mercury.DeviceReplay")
   x = obj.GetROProperty("abs_x")
   y = obj.GetROProperty("abs_y")
   dRep.MouseMove x,y
   Set dRep = Nothing
End Function

abs_x - absolute value of x coordinate
x - coordinate x relative to the parent object.