Private Sub Chatverlauf_Tick(sender As System.Object, e As System.EventArgs) _
   Handles Chatverlauf.Tick
 
        IO.File.Delete(ProgrammPfad & "1.txt")
        My.Computer.Network.DownloadFile("http://Pfad.de", ProgrammPfad & _
          "1.txt")
        Dim Verstecken As New System.IO.FileInfo(ProgrammPfad & "1.txt")
        Verstecken.Attributes = Verstecken.Attributes Or _
          IO.FileAttributes.Hidden
 
        Chat.Items.Clear()
        Chat.Items.AddRange(System.IO.File.ReadAllLines(ProgrammPfad & "1.txt"))
        For k As Integer = 0 To Chat.Items.Count - 1
            Chat.Items.Remove("")
        Next
 
    End Sub
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
 
        Chatverlauf.Stop()
 
        Using SW As New IO.StreamWriter(ProgrammPfad & "1.txt", True)
            For Each itm As String In Chat.Items
                SW.WriteLine(itm)
            Next
        End Using
 
        My.Computer.Network.UploadFile(ProgrammPfad & "1.txt", "FTPPfad", _
          "Username", "Passwort")
 
        Chatverlauf.Start()
 
    End Sub