Private Sub Form_Load()

    Picture1.OLEDragMode =

    Text1.OLEDropMode =

    Text1.OLEDragMode =

    Text2.OLEDropMode =

    Text2.OLEDragMode =

End Sub

Private Sub Picture1_OLEStartDrag(Data As DataObject, AllowedEffects As Long)

    AllowedEffects =

    Data.Clear

    Data.SetData "来自Picture1",  '设置拖放的内容

End Sub

Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)

    Dim s As String

    s = Data.GetData()

    Text1.SelLength =

    Text1.SelText = s '在光标处插入

End Sub

Private Sub Text1_OLEStartDrag(Data As DataObject, AllowedEffects As Long)

    AllowedEffects =

    Data.Clear

    Data.SetData Text1.SelText,  '设置拖放的内容

End Sub

Private Sub Text2_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)

    Dim s As String

    s = Data.GetData()

    Text2.SelLength =

    Text2.SelText = s '在光标处插入

End Sub

Private Sub Text2_OLEStartDrag(Data As DataObject, AllowedEffects As Long)

    AllowedEffects =

    Data.Clear

    Data.SetData Text2.SelText,  '设置拖放的内容

End Sub