Dim b As BildDaten
        b = CType(Images(Index), BildDaten)
 
        Dim f As New System.Collections.Specialized.StringCollection
        Dim d As New DataObject
        Dim fo As System.Drawing.Imaging.ImageFormat
 
        fo = System.Drawing.Imaging.ImageFormat.Jpeg
 
        f.Add(TempPath & b.Name & ".jpg")
        d.SetFileDropList(f)
        b.Image.Save(TempPath & b.Name & ".jpg", fo)