Dim bmp As Bitmap
Dim resizingFactor As Double = 0
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
         ' Hier deaktiviert, da die Werte über Setting-Werte ermittelt werden
         'Me.Dateiname.Text = My.Settings.AktuellesVerzeichnis & 
         ' My.Settings.AktuelleDatei & "." & My.Settings.AktuelleDateiEndung
        Me.Dateiname.Text="C:\Temp\Bilder\DSCF0001.JPG"
 
        imgOriginal = Image.FromFile(Me.Dateiname.Text)
        Bildanzeige.Image = imgOriginal
        bmp = New Bitmap(Me.Dateiname.Text)
 
        ' ZoomSlider einstellen
        zoomSlider.Minimum = -1000
        zoomSlider.Maximum = 1000
        zoomSlider.SmallChange = 1
        zoomSlider.LargeChange = 1
        zoomSlider.UseWaitCursor = False
        Zoomfaktor.Text = 1
end sub
Private Sub Bildanzeige_Paint(ByVal sender As System.Object, ByVal e As _
  System.Windows.Forms.PaintEventArgs) Handles Bildanzeige.Paint
        If bmp IsNot Nothing Then
            e.Graphics.InterpolationMode = _
              Drawing2D.InterpolationMode.NearestNeighbor
            e.Graphics.PixelOffsetMode = Drawing2D.PixelOffsetMode.HighQuality
            If resizingFactor = 0 Then Exit Sub
 
            If resizingFactor > 0 Then
                Dim targetRect As New Rectangle(5, 5, bmp.Width * _
                  resizingFactor, bmp.Height * resizingFactor)
                e.Graphics.DrawImage(bmp, New Rectangle(targetRect.Location, _
                targetRect.Size))
                e.Graphics.DrawRectangle(Pens.Lime, targetRect)
            Else
                resizingFactor = resizingFactor * -1
                Dim targetRect As New Rectangle(5, 5, bmp.Width / _
                  resizingFactor, bmp.Height / resizingFactor)
                e.Graphics.DrawImage(bmp, New Rectangle(targetRect.Location, _
                targetRect.Size))
                e.Graphics.DrawRectangle(Pens.Lime, targetRect)
            End If
 
        End If
end sub
    Private Sub zoomSlider_Scroll(ByVal sender As System.Object, ByVal e As _
      System.Windows.Forms.ScrollEventArgs) Handles zoomSlider.Scroll
        Zoomfaktor.Text = zoomSlider.Value / 10
        resizingFactor = Zoomfaktor.Text
        Bildanzeige.Refresh()
    End Sub
    Private Sub Panel1_Scroll(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.ScrollEventArgs) Handles Panel1.Scroll
        Bildanzeige.Refresh()
    End Sub