[Help] Update/Downloader Problem

Imports System.IO
Imports System.Text
Imports System.Net

'#Form#
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Control.CheckForIllegalCrossThreadCalls = False
End Sub

'#Button Click#
Private Sub GetFile_Button(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

BackgroundWorker1.RunWorkerAsync()
End Sub

'#Download Sub#
Private Sub DownloadTest3()
Dim AppPath As String
AppPath = Environment.CurrentDirectory()

For Each line In IO.File.ReadAllLines(AppPath + "\CheckFiles.txt")
Fulldownload = New WebClient
Fulldownload.DownloadFileAsync(New Uri(line), (AppPath.TrimEnd("\"c) & GetFileNameFromURL(line)))
Next
End Sub

'#Function#
Private Function GetFileNameFromURL(ByVal URL As String) As String
If URL.IndexOf("/"c) = -1 Then Return String.Empty

Return "\" & URL.Substring(URL.LastIndexOf("/"c) + 1)
End Function

'#DownloadProgressChangedEvents#
Private Sub Fulldownload_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles Fulldownload.DownloadProgressChanged

ProgressBar1.Value = e.ProgressPercentage
Me.lolsize.Text = "FileSize: [" & e.TotalBytesToReceive & "]KB"
Me.lolgetdata.Text = "Downloaded: [" & e.BytesReceived & "]KB"
Me.lolpercent.Text = e.ProgressPercentage & "%"
End Sub

Public Sub FullDownloadComplete(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles Fulldownload.DownloadProgressChanged

If ProgressBar1.Value = 100 Then
ProgressBar1.Value = 0
Me.lolsize.Text = "FileSize: [ ]KB"
Me.lolgetdata.Text = "Downloaded: [ ]KB"
Me.lolpercent.Text = " %"
End If
End Sub

'#And for last the Backgroundworker#    
Private Sub BackgroundWorker1_DoWork(sender As System.Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork

Dim AppPath As String
AppPath = Environment.CurrentDirectory()

ProgressBar1.Value = 0
ProgressBar1.Maximum = 100
Dim Full As String = ("http://**/files/")
Dim theResponse As HttpWebResponse
Dim theRequest As HttpWebRequest
Try
theRequest = WebRequest.Create(Full)
theResponse = theRequest.GetResponse
DownloadTest3()

Catch ex As Exception
MsgBox("It's offline dumbass")
End Try
End Sub