Imports System.Net
 
Public Class Haupt
    Dim WithEvents Datei As New WebClient
 
    Private Sub Button_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button.Click
        Link.Enabled = False
        Speicherpfad.Enabled = False
        Dateiname.Enabled = False
        Button.Enabled = False
        Button.Visible = False
        Bar.Visible = True
 
        Thread.RunWorkerAsync()
    End Sub
 
    Private Sub Thread_DoWork(ByVal sender As System.Object, ByVal e As _
      System.ComponentModel.DoWorkEventArgs) Handles Thread.DoWork
        Datei.DownloadFileAsync(New Uri("http://www.bla.de/" + Link.Text + _
        ".exe", Speicherpfad.Text + "\" + Dateiname.Text + ".exe")
 
        Link.Enabled = True
        Speicherpfad.Enabled = True
        Dateiname.Enabled = True
        Bar.Visible = False
        Button.Enabled = True
        Button.Visible = True
    End Sub
 
    Private Sub Datei_DownloadProgressChanged(ByVal sender As Object, ByVal e _
      As System.Net.DownloadProgressChangedEventArgs) Handles _
      Datei.DownloadProgressChanged
        Bar.Value = e.ProgressPercentage
        Label1.Text = e.ProgressPercentage + "%"
    End Sub