Vb.net Download Kodu Hakkında Yardım ?

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DLButton.Click
        Dim chElement = From chE In CheatList.Descendants("Cheat") Where chE.@Name = chList.SelectedItem.ToString

        chSaveDialog.FileName = chElement.@Name
        If chSaveDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Try
                My.Computer.Network.DownloadFile(chElement.Descendants("Download").Value, chSaveDialog.FileName, "", "", True, 500, True)
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.OkOnly, Me.Text)
                IO.File.Delete(chSaveDialog.FileName)
            End Try
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DLButton.Click
        Dim chElement = From chE In CheatList.Descendants("Cheat") Where chE.@Name = chList.SelectedItem.ToString
        Dim fileName As String = chElement.Descendants("Download").Value.Substring(chElement.Descendants("Download").Value.LastIndexOf("/") + 1)

        chSaveDialog.FileName = fileName
        If chSaveDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Try
                My.Computer.Network.DownloadFile(chElement.Descendants("Download").Value, chSaveDialog.FileName, "", "", True, 500, True)
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.OkOnly, Me.Text)
                IO.File.Delete(chSaveDialog.FileName)
            End Try
        End If
    End Sub

Dim remoteUri As String =  url
Dim fileName As String = "dosya.exe"

Using (var client = new WebClient())

 
   client.DownloadFile(remoteUri, fileName)
End Using