Auto scrolling to bottom of textbox. [Resolved]

[Jared]

I am taking string text data and passing it to a Sub. All the text appears in the text box okay, but I can't get the scroll bar to go to the bottom of the textbox. After each new addition of text, the scrollbar stays at the top. Here is the code that I am using:


Private Sub WriteMessage(ByVal message As String)

Me.TextBox1.Text += message + vbCrLf
Me.TextBox1.SelectionStart = Len(TextBox1.Text)

End Sub


I have read other suggestions from the past forums, but those didn't seem to work.