<UIPermissionAttribute(Window=UIPermissionWindow.NoWindows, 
   Clipboard=UIPermissionClipboard.OwnClipboard, 
   Action=SecurityAction.Demand, 
   Unrestricted=False)>
Public Function DoDragDrop( _
   ByVal data As Object, _
   ByVal allowedEffects As DragDropEffects _
) As DragDropEffects

Dim instance As OLE
Dim data As Object
Dim allowedEffects As DragDropEffects
Dim value As DragDropEffects
 
value = instance.DoDragDrop(data, allowedEffects)

[UIPermissionAttribute(Window=UIPermissionWindow.NoWindows, 
   Clipboard=UIPermissionClipboard.OwnClipboard, 
   Action=SecurityAction.Demand, 
   Unrestricted=false)]
public DragDropEffects DoDragDrop( 
   object data,
   DragDropEffects allowedEffects
)