为何标签中显示不出滚动条的值

求助：为何标签中显示不出滚动条的值？
编写了如下处理滚动条Scroll事件的过程：
private sub HScroll1_Scroll()
  Label1.Caption = "Moving to" + Str(Hscroll1.Value)
但是在程序运行时，标签中却没有显示出滚动条当前的值。这是怎么回事呢？
 

[解决办法]

VB code

Private Sub HScroll1_Change()    Label1.Caption = "Moving to " & HScroll1.ValueEnd Sub
[解决办法]
VB code
Private Sub HScroll1_Change()    Label1.Caption = "Moving to" + Str(HScroll1.Value)End SubPrivate Sub HScroll1_Scroll()    Label1.Caption = "Moving to" + Str(HScroll1.Value)End Sub
[解决办法]
应该使用Change事件