Imports System.Net
Public Class Form1
  Inherits System.Windows.Forms.Form

Vom Windows Form Designer generierter Code

  Private Sub Button1_Click_1(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button1.Click

    On Error GoTo Err
    Dim dl As New WebClient()
    With SaveFileDialog1
      .InitialDirectory = System.Reflection.Assembly. _
            GetExecutingAssembly.Location
      .Filter = "Alle Dateien (*.*)|*.*"
      .FilterIndex = 1
      .FileName = TxtURL.Text.Substring( _
            TxtURL.Text.LastIndexOf("/") + 1)
      .RestoreDirectory = True
      If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
        dl.DownloadFile(TxtURL.Text, SaveFileDialog1.FileName)
        MsgBox("Der Download war erfolgreich... " & _
            "Die Datei wurde gespeichert unter : " & _
            SaveFileDialog1.FileName, MsgBoxStyle.OKOnly, _
            "Download erfolgreich")
      End If
    End With

    Exit Sub

Err:
    MsgBox("Beim Download ist folgender Fehler aufgetreten: " & _
       Err.Description, MsgBoxStyle.Critical, _
       "Schwerwiegender Fehler")
  End Sub

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