🚀 go-pugleaf

Add the following line in the Change event

Sub rtbText_Change()
    rtbText.SelStart = Len(rtbText.Text)
End Sub


bernie wrote in message <6s2of7$10c$1@news0-alterdial.uu.net>...
>i am building a small chat program. it looks like AOL's imstand messanger.
>it uses to rich text boxes and  the bottom one sends text to the top one
>using the code below to send the text to the box on the next line. the top
>box everyone see's EX>
>
>Private Sub cmdAdd_Click()
>Dim stUID As String
>stUID = "(UserName)"
>rtb1.Text = rtb1.Text + vbNewLine + stUID + ":>" + rtbAdd.Text
>
>
>End Sub
>
>it works correctly but i when there is too many lines the new text can't be
>seen i have the scroll bar and you can scroll by hand but i want itto
>automaticly scroll to that last line of text.
>
>if anyone can help me with this or anything doing with building an chat
>program please post or email me at deforest@mkl.com
>
>