vb滚动条怎么设置呀

1、首先打开VB，然后在VB窗体上添加一个文本框，如图。

2、然后点击这个添加的文本框，接着在右侧的一个窗口中，设置他的相关名称和数值，然后将文本内容清空。如图。

3、紧接着在窗体上面，再添加一个水平滚动条，如图。

4、然后单击这个水平滚动条，设置名称和数值，将Min设置为0，Max设置为100。largechange设置为5，Smallchange设置为2，如图。

5、然后双击这个文本框，将会弹出页面，便可以编辑相应的代码了，如图。

6、最后运行程序，在文本框中输入不同的数值（0-100以内的数值），观察滚动条的滚动框位置，完成效果图。

Private Sub Command1_Click()
Dim n As Integer
List1.Clear
For n = 1 To 9999
Select Case n
Case n ^ 2 Mod 10
List1.AddItem Format(n, "@@@@@") & Format(n ^ 2, "@@@@@@@@@@")
Case n ^ 2 Mod 100
List1.AddItem Format(n, "@@@@@") & Format(n ^ 2, "@@@@@@@@@@")
Case n ^ 2 Mod 1000
List1.AddItem Format(n, "@@@@@") & Format(n ^ 2, "@@@@@@@@@@")
Case n ^ 2 Mod 10000
List1.AddItem Format(n, "@@@@@") & Format(n ^ 2, "@@@@@@@@@@")
End Select
Next
VScroll1.Max = List1.ListCount - 1
VScroll1.Value = 0
End Sub
Private Sub Form_Load()
VScroll1.Max = List1.Height
End Sub
Private Sub VScroll1_Change()
List1.ListIndex = VScroll1.Value
End Sub
Private Sub VScroll1_Scroll()
List1.ListIndex = VScroll1.Value
End Sub

Private Sub Form_Load()
VScroll1.Max = List1.Height
End Sub

Private Sub VScroll1_Change()
List1.Height = VScroll1.Value
End Sub

Private Sub VScroll1_Scroll()
List1.Height = VScroll1.Value
End Sub
你的这几句是干嘛的啊，删除就好了