Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
     Handles Button1.Click
 
        Dim AClient As New Net.WebClient
        AClient.Credentials = New Net.NetworkCredential("Username", "PW")
        AClient.UploadString("FTP.txt", TextBox1.Text)
 
    End Sub
 
    Private Sub Chatverlauf_Tick(sender As System.Object, e As _
      System.EventArgs) Handles Chatverlauf.Tick
 
        ListBox4.Items.Clear()
        ListBox4.Items.AddRange(Split(New WebClient().DownloadString( _
          "http://Link.de"), vbLf))
 
    End Sub