Full Code

Imports System.Net
Public Class Form1
    Dim WithEvents toxic As New WebClient
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim client As WebClient = New WebClient
        toxic.DownloadFileAsync(New Uri("LINK PRO DOWNLOAD"), "CAMINHO")
    End Sub

    Private Sub WC_DownloadProgressChanged(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs) Handles toxic.DownloadProgressChanged
        ProgressBar1.Value = e.ProgressPercentage

        If ProgressBar1.Value = (100) Then
            Shell("CAMINHO DO PROGRAMA A SER EXECUTADO") 'PROGRAMA A SER EXECUTADO
        End If
    End Sub
End Class