1. 建立一个EXE工程，在窗体上放一个文本框和一个水平滚动条。设置滚动条的最大最小属性分别为：100和1。如图36。

图36

1. 为滚动条的change事件输入代码：

Sub Form1_HScroll1_Change(hWndForm As hWnd, hWndControl As hWnd, hNewPos As Long, nScrollCode As Long )Text1.Text=HScroll1.ValueEnd Sub

这段代码表示滚动条的当前值会同步显示在文本框内。