>>869
Label1とHscroll1を置いて

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

これで動きますが･･･

それと、”どうもうまくいかない”というのでは解りません。
実際やってみてどうなったのか具体的に書いたほうがいいかと。