Загрузчик youtube

mports System.Net
Public Class Form1
    Private WithEvents httpclient As WebClient
 
    
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        persent.Text = ""
        open.Enabled = False
    End Sub
 
    Private Sub save_Click(sender As Object, e As EventArgs) Handles save.Click
        Dim save As New SaveFileDialog
        save.Title = " "
 
        save.Filter = "Файл(*.*)|*.*"
 
        If save.ShowDialog() = Windows.Forms.DialogResult.OK Then
 
            fileto.Text = save.FileName
 
        Else
 
            fileto.Text = ""
 
        End If
    End Sub
 
    Private Sub download_Click(sender As Object, e As EventArgs) Handles download.Click
        download.Enabled = False
        open.Enabled = False
 
        fileurl.Enabled = False
 
        fileto.Enabled = False
 
        save.Enabled = False
 
        httpclient = New WebClient
        httpclient.DownloadFileAsync(New Uri(fileurl.Text), (fileto.Text))
    End Sub
    Private Sub dpc(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles httpclient.DownloadProgressChanged
        progress.Value = e.ProgressPercentage
 
        If progress.Value < "100" Then
 
            persent.Text = progress.Value.ToString + " %"
 
        Else
 
            persent.Text = "100 %"
 
            MsgBox("Файл загружен успешно!", 64, "Загрузить")
 
            download.Enabled = True
 
            progress.Value = "0"
 
            open.Enabled = True
            fileurl.Enabled = True
 
            fileto.Enabled = True
 
            save.Enabled = True
 
        End If
 
    End Sub
    Private Sub open_Click(sender As Object, e As EventArgs) Handles open.Click
        If System.IO.File.Exists(fileto.Text) = True Then
 
            Process.Start(fileto.Text)
 
        Else
 
            MsgBox("Файл не существует!", 64, "Открыть")
 
        End If
    End Sub
End Class

Imports System.Net.Mail
Imports System.Text

        Dim EMail As New MailMessage
        Dim Smtp As SmtpClient
        Smtp = New SmtpClient("smtp.yandex.ru")
        Smtp.Port = 587
        Smtp.Credentials = New Net.NetworkCredential("Кто@отправляет.ru", "Пароль") 'Данные Вашей почты
        EMail.From = New MailAddress("Кто@отправляет.ru", Subject.Text) ' Subject.Text здесь для красоты, по желанию можно убрать
        EMail.To.Add(New MailAddress("Кому@отправляем.ru"))
        EMail.Body = Message.Text 'Основной текст
        EMail.AddAttachment("Вложение1, например, C:\Attachment.zip")
        EMail.Subject = Subject.Text 'Тема письма
        Try
            Smtp.Send(EMail)
            MsgBox("Ваше сообщение отправлено. Спасибо!", MsgBoxStyle.Information)
        Catch ex As Exception
            MsgBox("Ваше сообщение не было отправлено. Пожалуйста, повторите попытку", MsgBoxStyle.Critical)
        End Try