Wie kann ich in VB.NET 2003 markierten Text in einer RTF-Box per Maus verschieben?

Um in VB.NET 2003 markierten Text innerhalb einer RichTextBox per Drag & Drop mit der Maus zu verschieben, musst du einige Ereignisse und Einstellungen nutzen, da die Standard-RichTextBox dieses Verhalten nicht automatisch unterstützt. Hier ist eine Schritt-für-Schritt-Anleitung:

**1. RichTextBox-Eigenschaften setzen:**
- `AllowDrop` auf `True` setzen.

**2. Ereignisse programmieren:**
Du benötigst mindestens die folgenden Ereignisse:
- `MouseDown`
- `MouseMove`
- `DragEnter`
- `DragDrop`

**3. Beispielcode:**

```vb.net
' Modul-Variablen
Private isDragging As Boolean = False
Private dragStart As Integer

' MouseDown: Startpunkt merken
Private Sub RichTextBox1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles RichTextBox1.MouseDown
If e.Button = MouseButtons.Left AndAlso RichTextBox1.SelectionLength > 0 Then
dragStart = RichTextBox1.GetCharIndexFromPosition(New Point(e.X, e.Y))
isDragging = True
Else
isDragging = False
End If
End Sub

' MouseMove: Drag starten
Private Sub RichTextBox1_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles RichTextBox1.MouseMove
If isDragging AndAlso e.Button = MouseButtons.Left Then
If RichTextBox1.SelectionLength > 0 Then
RichTextBox1.DoDragDrop(RichTextBox1.SelectedRtf, DragDropEffects.Move)
isDragging = False
End If
End If
End Sub

' DragEnter: Effekt anzeigen
Private Sub RichTextBox1_DragEnter(ByVal sender As Object, ByVal e As DragEventArgs) Handles RichTextBox1.DragEnter
If e.Data.GetDataPresent(DataFormats.Rtf) Then
e.Effect = DragDropEffects.Move
Else
e.Effect = DragDropEffects.None
End If
End Sub

' DragDrop: Text verschieben
Private Sub RichTextBox1_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs) Handles RichTextBox1.DragDrop
Dim dropPoint As Point = RichTextBox1.PointToClient(New Point(e.X, e.Y))
Dim dropIndex As Integer = RichTextBox1.GetCharIndexFromPosition(dropPoint)

' Text entfernen und an neuer Stelle einfügen
Dim selectedRtf As String = RichTextBox1.SelectedRtf
Dim selectionStart As Integer = RichTextBox1.SelectionStart
Dim selectionLength As Integer = RichTextBox1.SelectionLength

' Nur verschieben, wenn nicht in sich selbst gezogen
If dropIndex < selectionStart OrElse dropIndex > selectionStart + selectionLength Then
RichTextBox1.SelectedRtf = ""
RichTextBox1.SelectionStart = dropIndex
RichTextBox1.SelectedRtf = selectedRtf
End If
End Sub
```

**Hinweise:**
- Der Code verschiebt den markierten Text an die neue Position.
- Es wird geprüft, dass der Text nicht in sich selbst verschoben wird.
- Die Formatierung bleibt erhalten, da mit `SelectedRtf` gearbeitet wird.

**Weitere Infos:**
- [Microsoft Dokumentation zu RichTextBox](https://learn.microsoft.com/de-de/dotnet/api/system.windows.forms.richtextbox?view=netframework-1.1)

Damit kannst du markierten Text per Drag & Drop innerhalb einer RichTextBox verschieben.