prova così

codice:
Dim a As Integer = Panel.Top
Dim b As Integer = Panel.Left
Dim xx As Integer = Pic.MousePosition.X - a
Dim yy As Integer = Pic.MousePosition.Y - b
Panel.AutoScrollPosition = New Point(xx, yy)