Imports System.Net
 
Public Class frmDownload
   Public Const UpdatePath As String = "http://keco.bplaced.net/"
   Private WithEvents httpClient As WebClient
 
   Private Sub btnDownload_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles btnDownload.Click
      Try
         httpClient = New WebClient
         httpClient.DownloadFileAsync(New Uri(UpdatePath & "test.txt"), _
           "D:\temp\test.txt")
 
      Catch ex As Exception
         Debug.WriteLine(ex.Message)
      End Try
   End Sub
 
   Private Sub httpClient_DownloadFileCompleted(ByVal sender As Object, ByVal e _
     As System.ComponentModel.AsyncCompletedEventArgs) Handles _
     httpClient.DownloadFileCompleted
      ProgressBar1.Value = 0
   End Sub
 
   Private Sub httpClient_DownloadProgressChanged(ByVal sender As Object, ByVal _
     e As System.Net.DownloadProgressChangedEventArgs) Handles _
     httpClient.DownloadProgressChanged
      ProgressBar1.Value = e.ProgressPercentage
   End Sub
End Class

48 61 6C 6C 6F 0D 0A 64 61 73 0D 0A 69 73 74 0D 0A 65 69 6E 0D 0A 54 65 73 74

48 61 6C 6C 6F 0A 64 61 73 0A 69 73 74 0A 65 69 6E 0A 54 65 73 74