Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button1.Click
Me.TextBox1.AppendText(Environment.NewLine & "Appended Text")
Me.TextBox1.SelectionStart = Me.TextBox1.Text.Length - 1
Me.TextBox1.ScrollToCaret()
Me.TextBox1.Select()
End Sub