Imports System.Net
Public Class Form1
  Dim WithEvents wc1 As New WebClient
  Dim WithEvents wc2 As New WebClient

#Region "async. Stringdownload"
  Private Sub Button1_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button1.Click
    ' asyncronen Stringdownload starten
    wc1.DownloadStringAsync(New Uri(TextBox1.Text))
  End Sub

  Private Sub DownloadStringCompleted(ByVal sender As Object, _
      ByVal e As DownloadStringCompletedEventArgs) _
      Handles wc1.DownloadStringCompleted
    ' vollen String anzeigen
    MsgBox(e.Result.ToString, MsgBoxStyle.OkOnly, _
           "Stringdownload beendet")
  End Sub
#End Region

#Region "async. Filedownload"
  Private Sub Button2_Click(ByVal sender As System.Object, ByVal _
       e As System.EventArgs) Handles Button2.Click
    ' asyncronen Filedownload starten
    wc2.DownloadFileAsync(New Uri(TextBox1.Text), "Testfile.txt")
  End Sub

  Private Sub DownloadFileCompleted(ByVal sender As Object, ByVal _
      e As System.ComponentModel.AsyncCompletedEventArgs) _
      Handles wc2.DownloadFileCompleted
    MsgBox("Filedownload in Testfile.txt beendet.")
    ' Downloadfile öffnen
    Diagnostics.Process.Start("Testfile.txt")
  End Sub
#End Region

  Private Sub Button3_Click(ByVal sender As System.Object, ByVal _
      e As System.EventArgs) Handles Button3.Click
    Me.Close()
  End Sub
End Class