Private Sub pbAuswahl_MouseMove(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.MouseEventArgs) Handles pbAuswahl.MouseMove
        Dim a As Graphics
        Dim b As New Rectangle(0, 0, 50, 50)
        a.DrawImage(pbAuswahl.Image, pbLupe.Location.X, pbLupe.Location.Y, b, _
          GraphicsUnit.Pixel)
End Sub