[VB6] - 2D Level Editor problems

[joaquim]

i'm building an 2D Level Editor, but my scrollbar max values aren't correct
can anyone advice me?

Private Sub ScrollingValues()
    ScrollingVertical.Max = picView.ScaleHeight - UserControl.ScaleHeight
    ScrollingHorizontal.Max = picView.ScaleWidth - UserControl.ScaleWidth
    If ScrlBars = Both Then
        ScrollingHorizontal.Max = ScrollingHorizontal.Max + 17
        ScrollingVertical.Max = ScrollingVertical.Max + 17
    End If
    If picView.ScaleHeight <= UserControl.ScaleHeight Then ScrollingVertical.Max = 0
    If picView.ScaleWidth <= UserControl.ScaleWidth Then ScrollingHorizontal.Max = 0
End Sub