Imports System.Net
 
Public Class Form1
    Dim WithEvents w As New WebClient
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Me.Text = "Download beginnen"
        w.DownloadFileAsync(New Uri( _
          "http://www.tools4vb.de/runtime/vbrun60sp6.exe"), "C:\programm.exe")
        Me.Text = "Downloaf fertig!"
    End Sub
 
    Private Sub w_DownloadProgressChanged(ByVal sender As Object, ByVal e As _
      System.Net.DownloadProgressChangedEventArgs) Handles _
      w.DownloadProgressChanged
        Me.Text = e.ProgressPercentage & " %"
    End Sub
End Class

#######
ICQ: 192-576-074
http://codinglukas.co.funpic.de/

Wer fragt ist ein Narr - f?r 5 Minuten.
Wer nicht fragt ist ein Narr - sein Leben lang.
Quarks&Co