参考答案

Private Sub HScroll1_Change()
    Label1.Left = Me.HScroll1
End Sub
Private Sub HScroll1_Scroll()
    Label1.Left = Form1.HScroll1
End Sub