【例一】在窗体上放置一滚动条，设置其Max属性值为100，Min属性值为0，LargeChange属性为10，SmallChange属性为5，当滚动条滚动时可以在标签上显示当前滚动条的值。
运行效果如下图所示：
分析：假设窗体上用于显示滚动条当前值的标签为Label1。
程序代码：
Private Sub Form_Load()
Label1.Caption = HScroll1.Value
End Sub
Private Sub HScroll1_Change() ' 当滚动块移动后或在代码中对Value属性进行赋值后产生该事件
Label1.Caption = HScroll1.Value
End Sub
Private Sub HScroll1_Scroll() ' 当在滚动条内拖动滚动块时产生该事件
Label1.Caption = HScroll1.Value
End Sub
【例二】设计一个滚动条及两个文本框，滚动条代表温度，最小值是摄氏零度（或华氏32度），最大值是摄氏100度（或华氏212度），如下图a所示。运行时，当移动滚动条时，摄氏及华氏文本框能正确显示相应的温度值，如下图b所示。
a) 设计界面 b) 运行界面
图 用滚动条显示温度
分析：将滚动条VScroll1的Max属性设置值为0，Min属性设置值为100，LargeChange属性设置值为5，SmallChange属性设置值为1。则摄氏温度文本框CText的值就是滚动条的当前值（VScroll1.Value）；根据摄氏温度转换为华氏温度的公式F=（9*C/5）+32可得华氏温度文本框FText的值为((9 * VScroll1.Value) / 5) + 32。
程序代码：
Private Sub Form_Load()
CText.Text = VScroll1.Value
FText.Text = ((9 * VScroll1.Value) / 5) + 32
End Sub
Private Sub VScroll1_Change() ' 当滚动块移动后或在代码中对Value属性进行赋值后产生该事件
CText.Text = VScroll1.Value
FText.Text = ((9 * VScroll1.Value) / 5) + 32
End Sub
Private Sub VScroll1_Scroll() ' 当在滚动条内拖动滚动块时产生该事件
CText.Text = VScroll1.Value
FText.Text = ((9 * VScroll1.Value) / 5) + 32
End Sub