Public Sub GetScrollPosition As Int 'get current scroll position
Return sv.ScrollPosition
End Sub
Public Sub ScrollToPosition(Position As Int) 'immediately scroll to new position
sv.ScrollToNow(Position)
'DoEvents should not be neccessary ....
End Sub