VScroll RTB

I am adding a chat box to a program and trying to use

Code:

---

SendMessage rtbChat.hwnd, WM_VSCROLL, SB_BOTTOM, 0

---

to scroll to the bottom of the box after adding the new line of text. Problem: The text disappears until I click on the vscroll bar in the rtb. Solutions?

Try this:

Code:

---

Private Sub rtbChat_Change()
rtbChat.SelStart = Len(rtbChat.Text)
End Sub

---

Thanks Matt.
Out of curiosity , anyone know why the sendmessage doesn't work?