Dim Bild As System.Drawing.Image
        Dim Vorschau As System.Drawing.Image
 
        Bild = System.Drawing.Image.FromFile(pfad)
 
        Vorschau = Bild.GetThumbnailImage( _
                        box.Width, _
                        box.Height, _
                        Nothing, Nothing)
 
        box.Image = Vorschau