Question

VB 滚动条 计时器 问题

这程序错在哪了？
Private Sub Form_Load()
Timer1.Interval = 100
Label1.Caption = "大家新年好！"
Label1.FontSize = 24
Label1.Left = 0
HScroll1.Max = HScroll1.Width
End Sub

Private Sub HScroll1_Change()
Label1.Left = HScroll1.Value

End Sub

Private Sub Timer1_Timer()
Label1.Left = Label1.Left + 50
If Label1.Left > Form1.Width Then
Label1.Left = -Label1.Width
End If
HScroll1.Value = Label1.Left
If HScroll1.Value > HScroll1.Max Then
HScroll1.Value = 0
End If
End Sub

1、 编程，运行时界面如程序Design12.exe所示：
要求：
（1） 文字水平向右滚动（移动间隔时间为0.1秒），当全部文字移出窗体右边后，又从窗体左边进入窗体。
（2） 滚动条的滑块同时随文字的滚动而移动位置。
（3） 可以通过拖动滑块来控制文字的滚动位置。
（4） 界面及功能设计请参考Design12.exe文件及运行结果，新建Design12.Vbp工程文件，完成相应的应用程序的设计（其中窗体文件请命名为Design12.frm）。

Answer 1

HScroll1 最大值 设置成FORM1.WIDTH
最小值为 -Label1.Width