vb中滚动条的value属性

vb滚动条的代码？新建窗体，绘制一个文本框和一个水平滚动条，两个标签，然后写入：private sub hscroll1 uuchange（）Text1。Text=hs...