UFT: Drag and Drop (When Object Supports it)

Below Code works if the WebElement has supports Drag and Drop Function.

If Object does not support Drag and Drop , Mercury Device Replay should be tried.

'siteused: http://way2automation.com/way2auto_jquery/droppable.php
Browser("Welcome").Page("Welcome").Frame("Frame").WebElement("Drag me to my target").Drag , micNoCoordinate, micNoCoordinate, micCtrl
Wait 3
Browser("Welcome").Page("Welcome").Frame("Frame").WebElement("Drop here").Drop






 'By Using Mercury Device Replay

Set obj = CreateObject("mercury.devicereplay")
Browser("Welcome").Page("Welcome").Frame("Frame").WebElement("Drop here").Click

absx1=Browser("Welcome").Page("Welcome").Frame("Frame").WebElement("Drag me to my target").GetROproperty("abs_x")
absy1=Browser("Welcome").Page("Welcome").Frame("Frame").WebElement("Drag me to my target").GetROproperty("abs_y")

absx2=Browser("Welcome").Page("Welcome").Frame("Frame").WebElement("Drop here").GetROproperty("abs_x")
absy2=Browser("Welcome").Page("Welcome").Frame("Frame").WebElement("Drop here").GetROproperty("abs_y")

obj.DragAndDrop absx1, absy1, absx2, absy2,0
Set obj = Nothing