VB中如何在文本框中填加滚动条?请给个范例

ScrollBars属性用来确定文本框中是否有滚动条。O—None：无滚动条；1一Hotizontal：加水平滚动条；2一Vertical：加垂直滚动条；3一Both：同时加水平和垂直滚动条。
注意：当MultiILine多行属性为True时，ScrollBars属性才有效。当文本框具有水平或垂直滚动条后，文本框中文本的自动换行功能不起作用，只能通过回车键换行。

两个textbox文本框 一个button按钮
程序如下：
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox2.AppendText(TextBox1.Text + vbCrLf)
End Sub
End Class

将TextBox的MultiLine属性设置为True，再将其ScrollBars设置为非0的数（1是水平滚动条，2是垂直滚动条，3是都有）

设置文本框的MultiLine=True 设置ScrollBars= （1时水平 2时垂直 3时水平加垂直）