Visual Basic

string filename="streamTest.txt";
using(FileStream fw=new FileStream(filename, FileMode.Create,
		FileAccess.Write, FileShare.Read)) {
	using(StreamWriter tw=new StreamWriter(fw)) {
		tw.WriteLine("Created new file");
		using(FileStream fr=new FileStream(filename, FileMode.Open,
				FileAccess.Read, FileShare.ReadWrite)) {
			using(StreamReader tr=new StreamReader(fr)) {
				for(int i=0; i<10; i++) {
					tw.WriteLine("line "+i);
					tw.Flush();
					string s=tr.ReadLine();
					Console.WriteLine(s);
				}
			}
		}
	}
}