Me.RichTextBox1.Clear()
        Dim resFile As String = _
          System.Reflection.Assembly.GetExecutingAssembly.GetName().Name + _
          ".test1.vbs"
        Dim str As IO.Stream = _
        System.Reflection.Assembly.GetExecutingAssembly.GetManifestResourceStre_
        am(resFile)
 
        Dim outFile As System.IO.FileStream
        outFile = New System.IO.FileStream(resFile, IO.FileMode.Create, _
          IO.FileAccess.Write)
        Dim fileWriter As New System.IO.StreamWriter(outFile)
 
        fileWriter.Write(str)
        fileWriter.Close()
 
        outFile.Close()