Private Sub Button359_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button359.Click
        'System.Diagnostics.Process.Start( 
        ' "https://xdki.festo.com/xdki/data/doc_de/PDF/DE/DGE-ZR_DE.PDF")
        'Call DownloadItem()
    End Sub
 
    Private WithEvents MyClient As Net.WebClient
    Private Sub DownloadItem(ByVal sURL As String, ByVal strFile As String, _
      ByVal strFolder As String)
        MyClient = New Net.WebClient
        ProgressBar1.Value = 0
        MyClient.DownloadFileAsync(New Uri(sURL), IO.Path.Combine(strFolder, _
          strFile))
    End Sub
    Private Sub MyClient_DownloadProgressChanged(ByVal sender As Object, ByVal _
      e As System.Net.DownloadProgressChangedEventArgs) Handles _
      MyClient.DownloadProgressChanged
        ProgressBar1.Maximum = e.TotalBytesToReceive
        ProgressBar1.Value = e.BytesReceived
    End Sub
    Private Sub MyClient_DownloadFileCompleted(ByVal sender As Object, ByVal e _
      As _
      System.ComponentModel.AsyncCompletedEventArgs) Handles _
      MyClient.DownloadFileCompleted
        ProgressBar1.Value = 0
        MessageBox.Show("Die Datei wurde erfolgreich heruntergeladen", _
          "Dateidownload", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub