RichTextBox拖拽问题

Question

我的代码如下：
Private Sub Form_Load()
        RichTextBox1.OLEDragMode = rtfOLEDragManual
        RichTextBox1.OLEDropMode = rtfOLEDropManual
        RichTextBox2.OLEDragMode = rtfOLEDragManual
        RichTextBox2.OLEDropMode = rtfOLEDropManual
End SubPrivate Sub RichTextBox1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
        If RichTextBox1.SelLength > 0 And Button > 0 Then
                RichTextBox1.OLEDrag
        End If
End SubPrivate Sub RichTextBox1_OLEStartDrag(Data As RichTextLib.DataObject, AllowedEffects As Long)
        AllowedEffects = vbDropEffectMove
        Data.Clear
        Data.SetData RichTextBox1.SelText, vbCFText
End SubPrivate Sub RichTextBox2_OLEDragDrop(Data As RichTextLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
     RichTextBox2.SelText = Data.GetData(vbCFText)
End Sub
为何我将RichTextBox1选中的文本拖到RichTextBox2后，RichTextBox1中选中的文本还在？错在哪里？该如何修改？

Answer 1

Private Sub RichTextBox2_OLEDragDrop(Data As RichTextLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
     RichTextBox2.SelText = Data.GetData(vbCFText)
     RichTextBox1.SelText="" 
End Sub

Answer 2

大侠：AllowedEffects = vbDropEffectMove不是形同虚设吗？