用dragdrop或dragover怎么解决我这个问题？

Question

我现在有两个text，分别是text1和text2，现在我要实现的是：如果我将text1控件拖到text2控件位置放开后，就把text1.text和text2.text进行交换（是两个text的内容交换，空间位置还是不变），我不知道应该怎样来实现，请高手指点啊，
如果text不能实现的话，可以用picture或command来代替text，我只要拖动后空间上显示的内容呼唤就可以了

Answer 1

Option ExplicitPrivate Sub Form_Load()
    Text1.DragMode = vbAutomatic
End SubPrivate Sub Text2_DragDrop(Source As Control, X As Single, Y As Single)
    Dim s As String
    If Source Is Text1 Then
        s = Text1.Text
        Text1.Text = Text2.Text
        Text2.Text = s
    End If
End Sub