Dim iDataObject As IDataObject = Clipboard.GetDataObject()
  If iDataObject.GetDataPresent("Descripcion o identificador del objeto") Then
    Dim data As New Object
    data = DirectCast(iDataObject.GetData("Descripcion o identificador del objeto"), object)
  End If