>>889
フォームより長いラベルがあって、それを全部見えるようにスクロールさせる、ということでしょうかね。

Dim lblLeft As Long

Form1.ScaleMode = 3
HScroll1.Max = Label1.Width + Label1.Left - Form1.ScaleWidth
lblLeft = Label1.Left

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

こんな感じでどうでしょうか？