Dim fsTemp As System.IO.FileStream, picContent As PictureBox
Dim strTempPath As String = Application.StartUpPath & " \Temp"
 
' Bilddatei als Filestream einlesen
fsTemp = New System.IO.FileStream(strQuellPfad, IO.FileMode.Open, _
  IO.FileAccess.Read)
 
' Bild aus FileStream generieren
imgTemp = System.Drawing.Bitmap.FromStream(fsTemp)
 
' Thumbnail des Originals erstellen
imgTemp = GetThumbNailImage(imgTemp)
 
' Bild der PictureBox zuweisen
picContent.Image = imgTemp
 
' notwendige Speicherung, damit das Original...
imgTemp.Save(strTempPath & "\trash.jpg", _
  System.Drawing.Imaging.ImageFormat.Jpeg)
 
' ...nach diesem Befehl entsperrt wird
fsTemp.Close()

Die Zeit ist der größte Feind des Menschen.