VB怎樣編程控制滾動條的移動

'添加壹個水平滾動條，運行然後點擊窗口就可以看到效果

Dim i As Integer

HScroll1.Max = 30000

HScroll1.Min = 1

For i = 1 To 30000

HScroll1.Value = i '給value賦值就可以移動了

DoEvents

Next

End Sub

如果是控制文本框的滾動條，那麽用下面的方法

Text1.SelStart = Len(Text1.Text)