How do I autoscroll and rich text box?

I would like the cursor to always be at the end of the new text printed to my rich text box (autoscroll)

Maybee this helps.

Code:

---

rtfMain.SelStart = Len(rtfMain.Text)

---