This should get you started:
Private Sub Form_Load()
VScroll1.Max = Me.Height
VScroll1.Value = 0
End Sub
Private Sub Form_Resize()
VScroll1.Top = Me.Top
VScroll1.Height = Me.Height
End Sub
Private Sub VScroll1_Scroll()
Me.CurrentX = 10
Me.CurrentY = VScroll1.Max - VScroll1.Value
Me.Refresh
Print VScroll1.Value
End Sub
Notice you can change the .Min and .Max properties of VScroll1, use this to your advantage instead of trying to play with erroneous numbers. This also goes for progress bars, BTW.
Good luck!
-Mike Difference between a madman and a genius:
A madman uses his genius destructively,
A genius uses his madness constructively.