class Test
 
Private BildFakX, BildFakY As Single
    Private dblFaktor As Double
    Private intXGroesse As Integer = 50 * PB_XFAKTOR
    Private AlreadyCreated As Boolean
    Private MausPosi As Point
    Private g As Graphics
    Private bmpNeu As Bitmap
 
    Private Sub pbAuswahl_MouseEnter(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles pbAuswahl.MouseEnter
        'Einmaliges Anlegen der fixen Parameter
        If Not AlreadyCreated Then
            dblFaktor = pbLupe.Width / pbLupe.Height
 
            bmpNeu = New Bitmap(pbLupe.Width, pbLupe.Height)
 
            BildFakX = pbAuswahl.Image.Width / pbAuswahl.Width
            BildFakY = pbAuswahl.Image.Height / pbAuswahl.Height
 
            g = Graphics.FromImage(bmpNeu)
 
            AlreadyCreated = True
        End If
 
        pbLupe.Visible = True
        tLupe.Enabled = True
    End Sub
 
    Private Sub tLupe_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles tLupe.Tick
 
        g.DrawImage(pbAuswahl.Image, _
                    New Rectangle(0, 0, pbLupe.Width, pbLupe.Height), _
                    New Rectangle(CInt((MausPosi.X - intXGroesse) * BildFakX), _
                                  CInt((MausPosi.Y - CInt(intXGroesse / _
                                  dblFaktor)) * BildFakY), _
                                  CInt(intXGroesse * 2 * BildFakX), _
                                  CInt((intXGroesse / dblFaktor) * 2) * _
                                  BildFakY), _
                    GraphicsUnit.Pixel)
        pbLupe.Image = bmpNeu
    End Sub
 
    Private Sub pbAuswahl_MouseLeave(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles pbAuswahl.MouseLeave
        pbLupe.Visible = False
        tLupe.Enabled = False
    End Sub
 
    Private Sub pbAuswahl_MouseMove(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles pbAuswahl.MouseMove
        MausPosi.X = e.X
        MausPosi.Y = e.Y
        tLupe.Stop()
        tLupe.Start()
    End Sub
 
end class