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