Private Sub PictureBox2_MouseMove(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.MouseEventArgs) Handles pbOriginal.MouseMove
        lblPos.Text = "X= " & e.X.ToString & " ; Y= " & e.Y.ToString
 
        Dim b As Bitmap = New Bitmap(pbLupe.Width, pbLupe.Height)
        Dim i As Image = pbOriginal.Image
 
        Using g As Graphics = Graphics.FromImage(b)
 
            Dim tbmp As New Bitmap(pbOriginal.Width, pbOriginal.Height) _
              'temporäres Bitmap erzeugen
            pbOriginal.DrawToBitmap(tbmp, pbOriginal.Bounds) 'Inhalt der 
            ' Picturebox Hineinzeichnen
 
            pbLupe.Image = tbmp
 
        End Using
    End Sub