Dim data As New Object
  Dim data_object As New DataObject
  data_object.SetData("Descripcion o identificador del objeto", data)
  Clipboard.SetDataObject(data_object)