Private clickPosn As Point
Private scrollPosn As Point
Public Sub picBoxMap_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles picBoxMap.MouseDown
clickPosn.X = e.X
clickPosn.Y = e.Y
End Sub 'picBoxMap_MouseDown
Public Sub picBoxMap_MouseMove1(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles picBoxMap.MouseMove
If e.Button = Windows.Forms.MouseButtons.Left Then
scrollPosn.X = clickPosn.X - e.X
scrollPosn.Y = clickPosn.X - e.Y
'übergabe der veränderten pos. an Scrollbar
'dadurch veränderung des bildausschnitts
pnlBoxMap.AutoScrollPosition = scrollPosn
End If
End Sub 'picBoxMap_MouseMove