在多数情况下，特别是在源支持两种以上的格式或花费大量时间创建数据时，可能会希望只在目标请求数据时再将数据放入 DataObject 对象。但是，可在开始拖动操作时使用 OLEStartDrag 事件中的 SetData 方法将数据放入 DataObject 对象。例如：

Private Sub txtSource_OLEStartDrag(Data As _ 
      VB.DataObject, AllowedEffects As Long)
   Data.Clear
   Data.SetData txtSource.SelText, vbCFText
End Sub 

此例用 Clear 方法清除 DataObject 对象中的缺省数据格式，并指定所选定数据的数据格式（文本），然后又用 SetData 方法将数据放入 DataObject 对象。