调用：
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#差不多，转换下
这样，记录一下