在Visual Basic（VB）中添加和设置滚动条可以通过以下几种方法：
方法一：通过窗体设计器添加ScrollBar控件
1. 在VB的窗体设计器中，拖拽一个ScrollBar控件到窗体上。
2. 选中ScrollBar控件，通过属性窗口设置其属性，如Minimum（最小值）、Maximum（最大值）、Value（当前值）、LargeChange（大的变化）、SmallChange（小的变化）等。
3. 通过代码中的事件响应滚动条的变化，例如在ValueChanged事件中编写代码，以便在滚动条值变化时执行特定操作。
方法二：在文本框中添加滚动条
1. 将文本框的Multiline属性设置为True，以支持多行文本输入。
2. 将文本框的ScrollBars属性设置为Vertical或Both，以显示垂直或水平滚动条。如果希望同时显示水平和垂直滚动条，可以将ScrollBars属性设置为Both。
方法三：使用MSFlexGrid控件
1. 添加一个MSFlexGrid控件到窗体上。
2. 设置MSFlexGrid控件的ScrollBars属性为2（表示两者都有），即可实现滚动条功能。
方法四：动态显示滚动条
有时可能希望在文本框内容到达一定行数时才显示滚动条。可以通过以下代码实现：
```vb
Private bShow As Boolean ' 是否已经改变Scrollbars属性
Private Sub Form_Load（）
bShow = False
End Sub
Private Sub txtText_Change（）
If bShow = True Then Exit Sub
If TextHeight（txtText.Text） > txtText.Height Then
ShowScrollBar txtText.hwnd, SB_VERT, True
bShow = True
End If
End Sub
```
在这段代码中，当文本框内容的高度超过其显示高度时，会动态显示垂直滚动条。
方法五：处理滚动条事件
为了响应用户操作滚动条，可以处理Scroll事件。例如：
```vb
Private Sub HScroll1_Change（）
' 处理水平滚动条变化
End Sub
Private Sub VScroll1_Change（）
' 处理垂直滚动条变化
End Sub
```
通过这些方法，可以在VB中轻松地添加和设置滚动条，从而实现窗体或控件内容的滚动功能。根据具体需求选择合适的方法即可。