Scroll text from bottom of RTB

[aikidokid]

I am trying to add text one line at a time to a richtextbox.
I would like the new line to be added to the bottom of the RTB and the previous line to be moved up a line, to give the appearance of the text scrolling up to the top.

So far I have the following:

Private Sub Form_Load()
Dim myString As String
Dim tmpArray() As String      

myString = "First line of text" & vbCrLf & vbCrLf & _
                "Second line of text" & vbCrLf & vbCrLf & _
                "Third line of text" & vbCrLf & _
                "Fourth line of text"
                
tmpArray() = Split(myString, vbCrLf)  

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()
Dim i As Long

For i = 0 to Ubound(tmpArray)
     RichTextBox1.Textrtf = RichTextBox1.rtf & vbcrlf & tmpArray(i)
Next i

I am guessing it's something to do with the timer code.

[Fazi]

there are some declaration issues i saw,
fixed them.

Private i As Long
Private tmpArray() As String

Private Sub Form_Load()
Dim myString As String

myString = "First line of text" & vbCrLf & vbCrLf & _
                "Second line of text" & vbCrLf & vbCrLf & _
                "Third line of text" & vbCrLf & _
                "Fourth line of text"
                
tmpArray() = Split(myString, vbCrLf)

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()
For i = 0 To UBound(tmpArray)
    RichTextBox1.TextRTF = RichTextBox1.Text & vbCrLf & tmpArray(i)
Next i
End Sub

Edited.

[Fazi]

akido, to insert a line to the top, you can do like this

Me.RichTextBox1.Text = "Hai" & vbCrLf & Me.RichTextBox1.Text

[aikidokid]

Thanks Fazi,

I have completely reworked this.
I now have the RTB inside of a picturebox and in the timer I set the top value of the RTB to decrease by 10, to give the effect of the text scrolling upwards.

Thanks for the reply.