How do I make a multiline text box scroll with the text?

How do I make a multiline text box scroll with the text?
I mean it just has the text go down but the scrollbar automaticly goes back up and you cant see the last thing that was put on the text box

Code:

---

Private Sub Command1_Click()
Text1.SelStart = Len(Text1.Text)
End Sub

---