在VB中设计一个带有垂直滚动条的文本框很简单。你可以在VB的窗体设计器中添加一个文本框控件，然后将其属性中的ScrollBars属性设置为Vertical，这样就会在文本框的右侧添加一个垂直滚动条。
另外，你也可以在代码中动态添加垂直滚动条。下面是一个简单的示例代码：
Private Sub Form_Load()
' 创建一个文本框
Dim txtBox As TextBox
Set txtBox = Me.Controls.Add("Forms.TextBox.1", "txtBox")
' 设置文本框的属性
With txtBox
.Top = 100
.Left = 100
.Width = 200
.Height = 200
.MultiLine = True
.ScrollBars = fmScrollBarsVertical
End With
End Sub
通过以上代码，你可以在窗体加载时动态添加一个带有垂直滚动条的文本框。希望对你有所帮助！
