在窗体上有三个控件：名称为Label1的标签控件、名称为Text1的文本框控件和名称为Hscroll1的水下滚动条控件。程序的功能是通过滚动条移动Label1，并把滚动条的值显示在文本框中。滚动条的值作为Label1的Left属性。程序运行时的界面如右图所示。
Private Sub form_ Load()
HScroll1.Max = form1. Width
HScroll1. Min= 0
HScroll1.LargeChange = 50
HScroll1.smallChange = 10
Text1.Text = HScroll1.Value
HScroll1, Value =0
Label1.Left = HScroll1.Value
End Sub
Private Sub HScroll1 【11】
Text1.Text = NScroll1. 【12】
Label1.Left = HScroll1.Value
End Sub
