Imports System.IO, System.Net, System.Text
 
Public Class Form1
    Dim WithEvents myWebClient As New WebClient
    Private Sub cmdDownloaden_Click(sender As System.Object, e As _
      System.EventArgs) Handles cmdDownloaden.Click
        myWebClient.DownloadFileAsync(New Uri(" Link wo die Exe sich befindet" & _
        ""), "Text1.exe")
        myWebClient.Dispose()
        End
 
    End Sub
End Class