Private Sub Form_Load()Picture1.OLEDragMode = 1Text1.OLEDropMode = 1End SubPrivate Sub Picture1_OLEStartDrag(Data As DataObject, AllowedEffects As Long)AllowedEffects = 1Data.ClearData.SetData "<" & Now & ">", 1End SubPrivate Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)Dim s As Strings = Data.GetData(1)Text1.SelLength = 0Text1.SelText = sEnd Sub