vb.net 2010始终在richtextbox顶部追加文本

我创建了一个简单的函数将文本附加到Richtextbox。我希望此文本始终在顶部附加，将旧文本滚动到底部

Private Sub BoxMessaggio(ByVal testo As String, ByVal errore As Integer)
    Me.ActiveControl = RichTextBox1
    RichTextBox1.Focus()
    If errore Then
        RichTextBox1.SelectionColor = Color.Red
    Else
        RichTextBox1.SelectionColor = Color.Black
    End If
    RichTextBox1.AppendText(testo + vbNewLine)
    RichTextBox1.SelectionStart = RichTextBox1.Text.Length
    'RichTextBox1.Select(RichTextBox1.TextLength, 0)
    RichTextBox1.ScrollToCaret()
End Sub

我这样调用函数：

BoxMessaggio(Now + ": " + ex.Message, 1)

---

我在StackOverflow或一些论坛上尝试了很多不同的解决方案，但没有人适合我，文本总是添加在底部……

将

RichTextBox1.text

视为

字符串（因为它是），调用
插入
，并将新文本放在强文本的前面

RichTextBox1.Text = RichTextBox1.Text.Insert(0, testo + vbNewLine)

至于滚动。不要调用
Focus
或
ScrollToCaret
，它将停留在顶部查看最近添加的文本。
是否
RichTextBox1.text=testo&RichTextBox1.text
有效？prepend的意大利语单词是什么？有人吗？是的，它是有效的，在testo之后添加+vbnewline。别客气。此外，如果它回答了你的问题，请始终记住标记它。