文本框的拖放

Question

文本框与文本框之间的拖放怎样实现啊，我用过seltext，然后dragover，但不能用，可能是错了，请教！！！

Answer 1

是不是这个意思
Private Sub Form_Load()
  Text1.OLEDragMode = 1
  Text1.OLEDropMode = 2
  Text2.OLEDragMode = 1
  Text2.OLEDropMode = 2
End SubPrivate Sub Text1_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)
    Text1.Text = Data.GetData
End Sub
Private Sub Text2_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)
    Text2.Text = Data.GetData
End Sub