Dim nFileInfo As String = "C:\tmp\wallpaper_new.bmp"
        Dim msFile As new MemoryStream 
 
msFile = nConverter.createImage (nFileinfo) ' --- funktion liefert ein 
' Memorystream 
 
        Dim fsCopyFile As FileStream = New FileStream(nFileInfo, _
          FileMode.OpenOrCreate)
 
        Dim fsReader As BinaryReader = New BinaryReader(msFile)
        Dim fsWriter As BinaryWriter = New BinaryWriter(fsCopyFile)
        Dim buffer As Byte() = New Byte(2048) {}
        Dim readBytes As Integer = 0
 
msgbox( fsReader.lenght)
 
        Do
            readBytes = fsReader.Read(buffer, 0, 2048)
            UpdateProgressVar(...)
            fsWriter.Write(buffer, 0, readBytes)
        Loop While readBytes > 0
        fsWriter.Close()
        fsReader.Close()