Private Sub Form_Load()
 VScroll1.Visible = False 
 Picture3.Move 0, 0
 VScroll1.Top = Picture3.Top
 VScroll1.Height = Picture3.Height
End Sub

Private Sub Picture3_Resize()
 With VScroll1
  .Min = 0
  .Max = Picture3.Height - Picture2.Height
  .LargeChange = Picture3.ScaleHeight
  .SmallChange = VScroll1.LargeChange / 10
End With
 
    If Picture3.Height < Picture2.Height Then
        VScroll1.Visible = False
         Else
        VScroll1.Visible = True
    End If
    Picture3.Refresh
End Sub

Private Sub VScroll1_Change()
 With Picture3
 .Top = -VScroll1.Value
 .Refresh
End Sub

Private Sub VScroll1_Scroll()
 With Picture3
 .Top = -VScroll1.Value
 .Refresh
End Sub