Public Class Form1
 
    Private Sub PictureBox2_MouseMove(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles PictureBox2.MouseMove
        Dim p1 As Point = Me.PointToClient(New Point(e.X, e.Y))
        lblPos.Text = "X= " & e.X.ToString & " ; Y= " & e.Y.ToString
 
        Dim xkorrektur, ykorrektur As Integer
        xkorrektur = CInt(NumericUpDown1.Value)
        ykorrektur = CInt(NumericUpDown2.Value)
 
        Dim b As Bitmap
        b = New Bitmap(Me.PictureBox3.Width, Me.PictureBox3.Height)
        Using g As Graphics = Graphics.FromImage(b)
            g.DrawImage(Me.PictureBox2.Image, New Rectangle(0, 0, _
              Me.PictureBox3.Width, Me.PictureBox3.Height), _
                                    New Rectangle(e.X - 15, e.Y - 20, 30, 40), _
                                    GraphicsUnit.Pixel)
            lblBefehl.Text = "Anfang vom Bereich : e.x-15 : " + (e.X - _
            15).ToString + ", e.y-20 : " + (e.Y - 20).ToString
            lblBefehl2.Text = "Ende vom Bereich   : e.x+15 : " + (e.X + _
            15).ToString + ", e.y+20 : " + (e.Y + 20).ToString
            Me.PictureBox3.Image = b
        End Using
    End Sub
 
    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) _
                            Handles Me.MouseMove, PictureBox1.MouseMove
        Dim p1 As Point = Me.PointToClient(New Point(e.X, e.Y))
        lblPos.Text = "X= " & e.X.ToString & " ; Y= " & e.Y.ToString
    End Sub
End Class