Imports System.IO
Imports System.Threading
 
        Dim ostream As Stream ' Stream zum lesen des Resoucre Streams
        Dim fstream As New FileStream("C:\Readme.doc", FileMode.Create) ' File 
        ' stream zum schreiben der Datei
        ostream = Me.GetType().Assembly.GetManifestResourceStream( _
          "Projektname.Readme.doc") ' Resourcestream auslesen
        Dim Bytes(ostream.Length) As Byte ' Buffer zum speichern der Daten
        ostream.Read(Bytes, 0, Bytes.Length) ' Auslesen des Streams
        fstream.Write(Bytes, 0, Bytes.Length) ' Schreiben der Datei
        fstream.Close() ' Datei speichern
        Dim ProgInfo As New ProcessStartInfo("C:\Readme.doc") ' 
        ' Prozessinformation
        Dim Prog As New Process ' Neuer Prozess
        Prog = Process.Start(ProgInfo) ' Datei Öffnen (Mit dem Standart 
        ' Programm)
        Prog.WaitForExit() ' Warten bis der Prozess beendet ist
        File.Delete("C:\Readme.doc") ' Datei löschen