Public Class frmScrollRTF
 
 
    Dim rtf As New RichTextBox With {.Parent = Me, .Size = New Drawing.Size( _
      300, 400)}
 
    Dim WithEvents tim As New Timer With {.Interval = 1000}
 
 
    Private Sub frmScrollRTF_Load(sender As Object, e As EventArgs) Handles _
      MyBase.Load
 
        'Einige Zeilen
        Dim stb As New Text.StringBuilder(1000)
        For i As Integer = 1 To 100
            stb.Append(i.ToString & " " & "asaqsad12324  " & vbCrLf)
        Next i
        rtf.Text = stb.ToString
 
 
        tim.Enabled = True
 
    End Sub
 
 
 
    Private Sub tim_Tick(sender As Object, e As EventArgs) Handles tim.Tick
 
        Static pos As Integer
        pos += 1
        If pos = rtf.Lines.Count Then pos = 0
 
        Dim c As Integer = rtf.GetFirstCharIndexFromLine(pos)
        rtf.SelectionStart = c
        rtf.SelectionLength = 0
        rtf.ScrollToCaret()
    End Sub
 
End Class