vb滚动条的代码？

新建窗体，绘制一个文本框和一个水平滚动条，两个标签，然后写入：privatesubhscroll1uuchange（）Text1。Text=hscroll1。数值endsub程序运行时，点击水平滚动条，文本框中会显示相应的数字。程序如图所示

vb中滚动条的value属性vb文本框水平滚动条VB设置水平或垂直滚动条使用