'Festlegen von Variablen
		Dim ServerFile As String="http://htnrevision.ht.funpic.de/ip.txt"
		Dim LokalFile As String="C:\FH.txt"
 
	Sub Button1Click(sender As Object, e As System.EventArgs)
 
		'Prüfen ob Datei schon vorhanden
		'wenn ja, dann erst löschen
		'sonst Fehler
		If IO.File.Exists(LokalFile) Then Kill(LokalFile)
 
		'Downloaden der Datei
		My.Computer.Network.DownloadFile(ServerFile, LokalFile)
 
		'Anzeige der Datei in einer TextBox
		Dim SR As New IO.StreamReader(LokalFile)
		Do
			textbox1.Text += SR.ReadLine 
		Loop until sr.Peek =-1 
		SR.Close
 
	End Sub
 
	Sub Button2Click(sender As Object, e As System.EventArgs)
		Dim SW As New IO.StreamWriter(LokalFile, False)
		SW.Write(Textbox1.Text)
		SW.Close 
	End Sub