Downloader

Imports System.Net
Public Class Form1
    Private WithEvents httpclient As WebClient
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim save As New SaveFileDialog
        save.Title = ("Downloader")
        save.ShowDialog()
        TextBox2.Text = save.FileName
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        httpclient = New WebClient
        Dim sourceURL = TextBox1.Text
        Dim Filedir = TextBox2.Text
        ProgressBar1.Value = 0
        ProgressBar1.Maximum = 100
        Try
            httpclient.DownloadFileAsync(New Uri(sourceURL), (Filedir))
        Catch ex As Exception
            MsgBox("Failed" + ErrorToString(), MsgBoxStyle.Critical)
        End Try
    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

    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click
        If ProgressBar1.Value = 100 Then
            MsgBox("Download Complete!", MsgBoxStyle.OkOnly, "Dune")
        End If
    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