Скачать взяв ссылку из DataGridView

My.Computer.Network.DownloadFile(dowload_url, AppPath)

Public AppPath As String = New System.IO.DirectoryInfo(".").FullName

 Private Sub DataGridView1_CellMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseClick
        Dim dowload_url As String = DataGridView1.Item(5, Me.DataGridView1.CurrentCell.RowIndex).Value
        'If Not dowload_url = "" Then
        'My.Computer.Network.DownloadFile(dowload_url, AppPath + "\blablablaa")
        TextBox1.Text = dowload_url
        'End If
    End Sub

    Private Sub DataGridView1_CellMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseClick
        dowload_url = DataGridView1.Item(5, Me.DataGridView1.CurrentCell.RowIndex).Value
        SaveFileDialog1.FileName = DataGridView1.Item(3, Me.DataGridView1.CurrentCell.RowIndex).Value
        SaveFileDialog1.ShowDialog()
    End Sub
 
    Public Function DownloadFile(ByVal URL As String, ByVal Location As String) As Boolean
        Dim WC As New WebClient
        WC.DownloadFile(URL, Location)
    End Function
 
    Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
        DownloadFile(dowload_url, SaveFileDialog1.FileName.ToString + SaveFileDialog1.FilterIndex.ToString)
    End Sub

 Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
        WC.DownloadFileAsync(New System.Uri(dowload_url), SaveFileDialog1.FileName.ToString + SaveFileDialog1.FilterIndex.ToString)
    End Sub
 
    Dim WithEvents WC As New System.Net.WebClient 'Создаем событие, вызываемое WebClient
 
    Private Sub wc_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles wc.DownloadFileCompleted
        ProgressBar1.Value = 0
    End Sub
 
    Private Sub wc_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles wc.DownloadProgressChanged
        ProgressBar1.Value = e.ProgressPercentage
 
    End Sub