Text1.Text = HScroll1.Value 就是因为 这句话,
如果你想用它来移动文本,个人建议你就别用这个滚动条。把TEXT的MultiLine设置为True
再设置scrollbars为2.就可以达到了。
如果想用HScroll来改变字体大小 就应该这样写,
text1.fontsize = HScroll1.Value
我不明白你的问题
Private Sub HScroll1_Change()
Text1.Text = HScroll1.Value '这个地方不就是要得到HScroll1的值么
'当然会出现数字了
End Sub