私のサンプルコードはそのため、デリゲートで
下のコードを呼び出しています。
Private Sub WriteReadText(ByVal text As String)
'//受信文字の改行は全て↓に置き換えられる
text = text.Replace(Environment.NewLine, "↓")
Me.textBoxRead.AppendText(text + Environment.NewLine)
End Sub
例えばこれを、
Private Sub WriteReadText(ByVal text As String)
RichTextBox1.AppendText(text)
RichTextBox1.STC()
End Sub
とすればよいのです。