Sub scrollRichText(ByVal neuerText As String, _
                                ByVal myStyle As Font, _
                                ByVal myColor As Color)
 
 
        RichTextBox1.SelectionColor = myColor
        RichTextBox1.SelectionFont = myStyle
        RichTextBox1.AppendText(neuerText & vbCrLf)
        RichTextBox1.ScrollToCaret()
    End Sub

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