Public Class Form1
 
    Private mRTFInhalt1 As String
 
    Public Property RTFInhalt1 As String
        Get
            Return mRTFInhalt1
        End Get
        Set(value As String)
            mRTFInhalt1 = value
            RichTextBox1.Text = mRTFInhalt1
        End Set
    End Property
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
        Dim frmForm2 As New Form2
 
        With frmForm2
            .RTFInhalt2 = RichTextBox1.Text
            '.frmForm = Me
            .RTB = Me.RichTextBox1
            .ShowDialog()
        End With
    End Sub
 
End Class

Public Class Form2
 
    Private mRTFInhalt2 As String
    Private mRTB As RichTextBox
 
    Public Property RTFInhalt2 As String
        Get
            Return mRTFInhalt2
        End Get
        Set(value As String)
            mRTFInhalt2 = value
        End Set
    End Property
 
    Public Property RTB As RichTextBox
        Get
            Return mRTB
        End Get
        Set(value As RichTextBox)
            mRTB = value
        End Set
    End Property
 
    Private Sub RichTextBox2_TextChanged(sender As System.Object, e As _
      System.EventArgs) Handles RichTextBox2.TextChanged
        RTB.Text = RichTextBox2.Text
    End Sub
 
    Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
        RichTextBox2.Text = mRTFInhalt2
    End Sub
End Class

EALA FREYA FRESENA