I have searched all over for this

[brandonio21]

Well, the good news is, you got no errors! And atleast the textbox is splurting out something, lol!

Here is the exact code you need, sir.

Code:

sub rtb() Handles RichTextBox1.textchanged
TextBox1.Text = ""
        Dim i As Integer = 1
        Do Until TextBox1.Lines.Count = RichTextBox1.Lines.Count
            TextBox1.AppendText(i.ToString + vbNewLine)
            i = i + 1
        Loop
end sub

If you copy and paste this code into your form, it is guaranteed to work.