先把Text1的Multiline设置为True，然后设置ScrollBars属性为0（无滚动条）/1（水平方向滚动）/2（垂直方向滚动）/3（水平和垂直方向均滚动）
是不是说每次新增内容后都要把光标移动到最末端？如果是这样，你可以这样设置：Text1.SelStart=Len(Text1.Text)
不明白什么意思
Private Sub Form_Load()
VScroll1.Min = 0
For i = 1 To 80 '测试
Text1 = Text1 & i & vbCrLf
Next i
End Sub
Private Sub VScroll1_Change()
Text1.SelStart = VScroll1.Value
End Sub
Private Sub Text1_Change()
VScroll1.Max = Len(Text1)
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024