通过改变滚动条的箭头可以使text 的数值可以变大或变小如text初始值为54，点上箭头为递减的53，点下箭头为递增55.如图（附件1） ，谢谢了。

用updown控件。
两行代码搞定。
Private Sub UpDown1_DownClick()
Text1 = Val(Text1) + 1
End Sub
Private Sub UpDown1_UpClick()
Text1 = Val(Text1) - 1
End Sub
Text1的文本框初始值设置为54.

谢谢了，不过我还是希望用上面说的方法，谢谢了。

可以变通方法来解决。新建一工程，添加text1,text1的height刚好是最小的高度，Text1.MultiLine属性为True，Text1.ScrollBars属性值为2，复制下述代码即可运行即可看到效果

Private Sub Form_Load()
  Dim i As Integer
  Text1 = ""
  For i = 1 To 99
    Text1 = Text1 & i & vbCrLf
  Next
  Me.Show
  Text1 = Text1 & i
  DoEvents
  Text1.SelStart = 51 * 4 - 1   '设置默认值为54
End Sub

，，，，，，，这也行，不过，要是用您这个，和用list组合框一样的了

还有谁会呀？？？？看看呀，谢谢了

那两个箭头实际用途不是滚动条吧.不过就是两个按钮,用commandbutton,image,picturebox...都可以实现

哈哈哈 ，厉害，的确，还是我太死板了，嘿嘿，对的，，，哈哈 ，太死板了哈哈哈，，，，谢谢了哈。

你在三楼不是说非要用滚动条来解决么？如果可以变通，2楼答案就是可行的。你对7楼的答案感恩戴德是不是有点搞笑？

因为2楼的我不会，UPdown ,找不到，没有这个控件，我就没管了，不过你说的的确是问题，，，是我欠考虑，而且你的方法我也没看懂，特别最后一步，抱歉，因为我不会，所以我觉得是没用，是我的错。抱歉，谢谢了。谢谢了，毕竟新人 ，有些东西是看不懂的，就自认为没用，谢谢了。抱歉。