Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Try
 
            Dim url As New Uri( _
              "http://the.earth.li/~sgtatham/putty/latest/x86/putty.exe")
            Dim wc As New System.Net.WebClient
            wc.DownloadFile(url, "c:\datei.exe")
 
        Catch ex As Exception
            Stop
        End Try
    End Sub
End Class