'
' Created by SharpDevelop.
' User: Benedikt
' Date: 02.01.2006
' Time: 11:42
' 
' To change this template use Tools | Options | Coding | Edit Standard Headers.
'
Imports System
Imports System.IO
 
Module Main
	Sub Main()
		Console.WriteLine("Hello World!")
 
		' FileStream anlegen
Dim FStream As New FileStream("C:\Test\Test.txt", FileMode.Create, _
  FileAccess.ReadWrite, FileShare.Read)
  Dim SWriter As New StreamWriter(FStream)
  SWriter.Write("Text ohne Zeilenumbruch")
 
 
FStream.Close()
 
		End Sub
End Module