How to use vertical scroll bar

Option Explicit

Private Sub ConfigureScrollBarsLabel()
    If Label1.Height > Picture1.ScaleHeight Then
        VScroll1.Visible = True
        VScroll1.Min = 0
        VScroll1.Max = Picture1.ScaleHeight - Label1.Height
        VScroll1.LargeChange = Picture1.ScaleHeight
        VScroll1.SmallChange = Picture1.ScaleHeight / 5

        Label1.Top = VScroll1.Value
    End If
End Sub

Private Sub Text1_Change()
Label1.Caption = Text1.Text
ConfigureScrollBarsLabel
End Sub

Private Sub VScroll1_Change()
Label1.Top = VScroll1.Value
End Sub

Private Sub VScroll1_Scroll()
Label1.Top = VScroll1.Value
End Sub