Do
		bytes = stream.Read(buffer, 0, buffer.Length)
		ms.Write(buffer, 0, bytes)
	Loop While bytes > 0

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist