Imports System.IO
 
 
        Dim FileStream As FileStream
        Dim StreamRead As StreamReader
        Dim DateiString As String
 
        FileStream = New FileStream("Original.gif", FileMode.Open, _
          FileAccess.Read, FileShare.None)
        StreamRead = New StreamReader(FileStream)
        DateiString = StreamRead.ReadToEnd()
        StreamRead.Close()
        FileStream.Close()
 
        'In Datenbank Speichern und wieder auslesen
        'Hier nicht durchgeführt. Der DateiString wird nicht verändert.
 
        'Datei wieder erzeugen
        Dim FiStr As FileStream = New FileStream("Neu.gif", FileMode.Append)
        Dim StrWr As StreamWriter = New StreamWriter(FiStr)
        StrWr.WriteLine(DateiString)
        StrWr.Close()
        FiStr.Close()
 
        'Datei In Picturebox anzeigen
        Dim ByteData() As Byte
        ByteData = System.Text.Encoding.ASCII.GetBytes(DateiString)
        Dim ms As New MemoryStream
        ms.Write(ByteData, 0, ByteData.Length)
        PictureBox1.Image = Image.FromStream(ms)