Smooth scrolling rich text box with timer

[.paul.]

resize your rtb so it shows all of the text, set scrollbars = none, then paste it onto a panel. set the panel autoscroll property to true, then:

''' <summary>
''' timer
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
''' <remarks>interval = 100ms</remarks>
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    Panel1.AutoScrollPosition = New Point(Panel1.AutoScrollPosition.X, Math.Abs(Panel1.AutoScrollPosition.Y) + 1)
End Sub