Private Sub myString_MouseUp(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
 
 
        Dim CurX As Integer = Cursor.Position.X
        Dim CurY As Integer = Cursor.Position.Y
 
        Dim docx As Integer = Form2.Location.X
        Dim docy As Integer = Form2.Location.Y
 
        If CurX > Form2.Location.X And CurX < Form2.Location.X + Form2.Width _
          And CurY > Form2.Location.Y And CurY < Form2.Location.Y + _
          Form2.Height Then
 
            Form2.RichTextBox1. ....(?)
        End If
 
    End Sub

Private Sub over(ByVal sender As Object, _
ByVal e As DragEventArgs) Handles RichTextBox1.DragOver
 
   If (e.Data.GetDataPresent(GetType(System.String))) Then
      Dim mouseposition As New Point(e.X, e.Y)
      Dim charposition As Integer = _
      RichTextBox1.GetCharIndexFromPosition(mouseposition)
 
     If charposition >= 0 Then
        RichTextBox1.SelectionStart = charposition
     End If
   End If
 
End Sub

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus