Drag selected text in a richtextbox

[yosilb]

I would like to select some text in richtextbox and drag it manually else where in the same richtextbox. the problem is that when I select text in the richtextbox the cursor does not change to arrow

thanks

[.paul.]

Private Sub RichTextBox1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RichTextBox1.SelectionChanged
     If RichTextBox1.SelectionLength > 0 Then
         RichTextBox1.Cursor = Cursors.Arrow
     Else
         RichTextBox1.Cursor = Cursors.IBeam
     End If
End Sub

[yosilb]

thanks but it didn't help.

please let me try to explain again
when i select text in the richtextbox and then try to move it elsewhere the cursor become cursor.no which mean the operation is prohibited.

[obi1kenobi]

(A shot in the dark) Try handling the DragDrop events (basically all events that contain Drag in the filename). It should be straightforward if such events exist (I'm not sure if they exist, that's why it's a shot in the dark )

[.paul.]

set the enableautodragdrop property to true