Unable to record click and drag functionality

UFT does not record click and drag functions but it can be coded into the script using something like this.

 x=Browser("b").Page("p").WebElement("we").GetROProperty("abs_x")
 y=Browser("b").Page("p").WebElement("we").GetROProperty("abs_y")
 
 Set dr = CreateObject("Mercury.DeviceReplay")
 
 dr.DragAndDrop x,y,(x-100),(y+10),LEFT_MOUSE_BUTTON
 
 Set dr=Nothing
 

Also, I have found that using wait has helped. For example;

 Set dr = CreateObject("Mercury.DeviceReplay")  
 dr.MouseDown x,y,0  
 wait 1  
 dr.MouseMove x-225,y+10  
 wait 1  
 'dr.DragAndDrop x,y,(x-225),(y+10),0  
 dr.MouseUp x-225,y+10,0  
 Set dr=Nothing