Private Sub button2_Click(sender As Object, e As RoutedEventArgs) Handles button2.Click
Dim client As WebClient = New WebClient
AddHandler client.DownloadFileCompleted, AddressOf client_DownloadCompleted
client.DownloadFileAsync(New Uri("https://r3.ouhuasoft.com/api/sync/download"), "ToClient.rar")
End Sub