调用：

 Private Sub TextBox18_TextChanged(sender As Object, e As System.EventArgs) Handles TextBox18.TextChanged
        show_textbox_endline(TextBox18)
 End Sub

函数：

 '显示textbox最后一行
    Public Sub show_textbox_endline(Tbx As TextBox)
        If Tbx.Text.Length > 0 Then     '防止手动清空时，为0，后面textBox1.Text.Length - 1时出错。
            Tbx.SelectionStart = Tbx.Text.Length - 1
            Tbx.ScrollToCaret()        '将控件内容滚动到当前插入符号位置
        End If
    End Sub

C#差不多，转换下

这样，记录一下