图六
1、创建界面。
其中，HsbShow 的 Min 为 0 ，Max 为 100 ，SmallChange 为 5 ，LargeChange 为 10 。
2、双击滚动条（HsbShow），进入代码编写窗口：
Private Sub HsbShow_Change()
LblShow.Caption = "滚动条当前值为：" & HsbShow.Value
End Sub
3、滚动条的拖动事件：
Private Sub HsbShow_Scroll()
LblShow.Caption = "拖动中……"
End Sub