Form1.PictureBox2.Image = Form1.bildanzeigen(cover.PictureBox.Image)

 Public Function bildanzeigen(ByVal strfile As Image)
        Dim myfilelength As Int64
        Dim fs As IO.FileStream = New IO.FileStream(strfile, FileMode.Open)
        myfilelength = fs.Length
        ReDim Puffer(myfilelength - 1)
        fs.Read(Puffer, 0, myfilelength)
        Dim c As Bitmap = New Bitmap(New IO.MemoryStream(Puffer))
        Return c
        fs.Close()
    End Function