Dim client As New WebClient
                    client.Credentials = New NetworkCredential(Username, Password)My.Computer.FileSystem.WriteAllBytes(Application.StartupPath + "\Download\" + "Download,                  client.DownloadData(filename), True)