Wie programmiert man in VB.NET 2003 die Funktion zum Markieren und Verschieben von Textblöcken innerhalb derselben RichTextBox?

Um in VB.NET 2003 das Markieren und Verschieben von Textblöcken innerhalb derselben `RichTextBox` zu ermöglichen, kannst du folgende grundlegende Vorgehensweise nutzen:

1. **Text markieren:**
Das Markieren von Text ist in der `RichTextBox` bereits integriert. Der Benutzer kann mit der Maus oder Tastatur Text markieren.

2. **Text verschieben:**
Das Verschieben (Drag & Drop) von markiertem Text innerhalb derselben `RichTextBox` ist nicht standardmäßig aktiviert, kann aber mit ein wenig Code nachgerüstet werden.

Hier ein Beispiel, wie du Drag & Drop für Text innerhalb einer `RichTextBox` in VB.NET 2003 implementieren kannst:

```vb
' Im Form-Designer: RichTextBox1.AllowDrop = True setzen

Private Sub RichTextBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles RichTextBox1.MouseDown
If RichTextBox1.SelectionLength > 0 Then
' Starte Drag & Drop mit dem markierten Text
RichTextBox1.DoDragDrop(RichTextBox1.SelectedText, DragDropEffects.Move)
End If
End Sub

Private Sub RichTextBox1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles RichTextBox1.DragEnter
If e.Data.GetDataPresent(DataFormats.Text) Then
e.Effect = DragDropEffects.Move
Else
e.Effect = DragDropEffects.None
End If
End Sub

Private Sub RichTextBox1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles RichTextBox1.DragDrop
Dim point As Point = RichTextBox1.PointToClient(New Point(e.X, e.Y))
Dim index As Integer = RichTextBox1.GetCharIndexFromPosition(point)
Dim draggedText As String = e.Data.GetData(DataFormats.Text).ToString()

' Lösche den alten Text (nur wenn Move)
If e.Effect = DragDropEffects.Move Then
Dim selStart As Integer = RichTextBox1.SelectionStart
RichTextBox1.Text = RichTextBox1.Text.Remove(selStart, RichTextBox1.SelectionLength)
If index > selStart Then
index -= RichTextBox1.SelectionLength
End If
End If

' Füge den Text an der neuen Position ein
RichTextBox1.SelectionStart = index
RichTextBox1.SelectedText = draggedText
End Sub
```

**Hinweise:**
- Setze im Designer die Eigenschaft `AllowDrop` der `RichTextBox` auf `True`.
- Der Code behandelt das Markieren, Ziehen und Ablegen von Text innerhalb derselben `RichTextBox`.
- Es wird nur der markierte Text verschoben, nicht kopiert.
- Die Position, an der der Text eingefügt wird, ist die Stelle, an der die Maus beim Loslassen ist.

**Weitere Informationen:**
- [Microsoft Dokumentation zu Drag & Drop in Windows Forms](https://learn.microsoft.com/de-de/dotnet/desktop/winforms/advanced/drag-and-drop-operations-and-clipboard-support?view=netframeworkdesktop-4.8)
- [RichTextBox-Klasse (Microsoft)](https://learn.microsoft.com/de-de/dotnet/api/system.windows.forms.richtextbox?view=netframework-4.8)

Damit kannst du das gewünschte Verhalten in deiner Anwendung umsetzen.