Dim fileName As String = "C:\tmp\wallpaper.bmp"
        Dim fileNameNew As String = "C:\tmp\wallpaper_new.bmp"
        Dim msFile As MemoryStream = New IO.MemoryStream()
        Dim img As Image = Nothing
        Dim fsReader As BinaryReader = Nothing
        Dim fsCopyFile As FileStream = Nothing
        Dim fsWriter As BinaryWriter = Nothing
        Dim buffer As Byte() = New Byte(2047) {}
        Dim readBytes As Integer = 0
        img = Image.FromFile(fileName)
        fsCopyFile = New FileStream(fileNameNew, FileMode.OpenOrCreate)
        fsWriter = New BinaryWriter(fsCopyFile)
        img.Save(msFile, img.RawFormat)
        img.Dispose()
        img = Nothing
        msFile.Position = 0
        fsReader = New BinaryReader(msFile)
        Do
            readBytes = fsReader.Read(buffer, 0, buffer.Length)
            fsWriter.Write(buffer, 0, readBytes)
        Loop While readBytes > 0
        fsWriter.Close()
        fsReader.Close()
        Me.PictureBox1.Image = New Bitmap(fileNameNew)