要在VB文本框中添加滚动条，可以通过设置文本框的Multiline属性为True，并设置ScrollBars属性为Vertical或Both来实现。以下是示例代码：

Private Sub Form_Load()

' 设置文本框为多行模式并显示垂直滚动条

TextBox1.Multiline = True

TextBox1.ScrollBars = VbScrollBars.Vertical

End Sub

在上述代码中，将文本框的Multiline属性设置为True，可以将文本框切换为多行模式。然后，通过将ScrollBars属性设置为VbScrollBars.Vertical，可以在文本框中显示垂直滚动条。如果希望同时显示水平滚动条，可以将ScrollBars属性设置为VbScrollBars.Both。

运行代码后，文本框将显示一个垂直滚动条，允许用户滚动文本框中的内容。