Dim foto As Bitmap
Private Sub Form_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  foto = New Bitmap(Dateiname) 
End Sub
Private Sub PictureboxPaint _
(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs)
 ' x y von dem Immage berechnen (Berechnet Seitenverhältnis vom Foto zur 
 ' Zeichenfläche)
xy = Berechnung1(foto, e.ClipRectangle)
th = foto.GetThumbnailImage(xy(0), xy(1), Nothing, New IntPtr())
 
' x y von pos im Immage berechnen (Berechnet die Position, an welcher das Foto 
' auf der Zeichenfläche gezeigt wird)
xy = Berechnung2(th, e.ClipRectangle)
gr.DrawImage(th, xy(0), xy(1), th.Width, th.Height) 
' ... usw.