VS 2010 Managing a IE Download in the background

Private Sub btnDownload_Click(sender As System.Object, e As System.EventArgs) Handles btnDownload.Click
        Dim Tday, TMonth, TYear, TDate As String
        Tday = Date.Now.Day
        TMonth = Date.Now.Month
        TYear = Date.Now.Year
        Tday.Replace("0", "")
        TMonth.Replace("0", "")
        TDate = (Tday & "." & TMonth & "." & TYear)
        Webaddress = (Website Address)
        WebBrowser1.Navigate(Webaddress)
        Timer1.Start()
    End Sub
 
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        Do Until WebBrowser1.ReadyState = WebBrowserReadyState.Complete
            Application.DoEvents()
        Loop
        If WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then
            btnlogin.PerformClick()
            Timer1.Stop()
        End If
    End Sub
 
    Private Sub btnlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogin.Click
        WebBrowser1.Document.All("ssousername").InnerText = "Username"
        WebBrowser1.Document.All("password").InnerText = "Password"
        Dim theElementCollection As HtmlElementCollection
        theElementCollection = WebBrowser1.Document.GetElementsByTagName("input")
        For Each curElement As HtmlElement In theElementCollection
            If curElement.GetAttribute("value").Equals("Login") Then
                curElement.InvokeMember("click")
            End If
        Next
End Sub