Public Class Form1

Private Sub SC_MouseWheel(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles SC.MouseWheel

Dim myView As Point = Me.SC.AutoScrollPosition

myView.X = (myView.X + 100)
myView.Y = (myView.Y + 100)

Me.SC.AutoScrollPosition = myView
End Sub

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

Me.SC.Select()

End Sub
End Class