Brauche hilfe beim programmieren von updater

Imports System.Net

Public Class Form1

    Private WithEvents wc1 As WebClient
    Private WithEvents wc2 As WebClient
    Dim lbl_progress As Object

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Button1.Text = "Suche..."
        Button1.Enabled = False
        update()
    End Sub


    Sub update()
        wc1 = New WebClient

        If wc1.DownloadString("") <> "1.0" Then
            MsgBox("Es werden Updates heruntergeladen", MsgBoxStyle.Information, "Update-Ergebnis")
            download("")
        Else
            MsgBox("keine updates vorhanden", MsgBoxStyle.Information, "update-Ergebnis")
            Button1.Enabled = True
            Button1.Text = "Nach Updates suchen"
        End If
    End Sub


    Sub download(ByVal url As String)
        wc2 = New WebClient
        wc2.DownloadFileAsync(New Uri(url), "My.Computer.Network.DownloadFile(path, Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "/" & version & "" & "version.txt")
    End Sub


    Private Sub wc2_donloadcompleted(ByVal sender As Object, ByVal w As System.ComponentModel.AsyncCompletedEventArgs) Handles wc2.DownloadFileCompleted
        MsgBox("Download abgeschlossen", MsgBoxStyle.Information, "Download")
        Button1.Enabled = True
        Button1.Text = "nach Updates suchen"
        pgb_progress.Visible = False
        lbl_progress.Visible = False

    End Sub

    Private Sub wc2_Downloadchanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles wc2.DownloadProgressChanged
        pgb_progress.Visible = True
        lbl_progress.Visible = True

        pgb_progress.Value = e.ProgressPercentage
        lbl_prgress.Text = e.ProgressPercentage.ToString & "%"

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        End
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Process.Start("http://www.google.de")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim Programm As Long
        Programm = Shell("notepad.exe", vbNormalFocus)
        End
    End Sub
End Class

Sub vUpdate()
	Dim web As New Net.WebClient
	If My.Computer.Network.IsAvailable = True Then
		Try
			If Not web.DownloadString("http://deineseite.com/update/neueversion.txt") = "1.1.0.1" Then
				If MsgBox("Do you want to download the latest version?", MsgBoxStyle.YesNo, "New version available!") = MsgBoxResult.Yes Then
					Try
						My.Computer.Network.DownloadFile("http://deineseite.com/neueversion/setup.exe", Application.StartupPath & "\New Version.exe", "", "", True, 500, True)
						MsgBox(web.DownloadString("http://deineseite.com/update/changelog.txt"))
						Process.Start(Application.StartupPath & "\New Version.exe")
						Me.Close()
					Catch ex As Exception
						MsgBox("Failed to download Updates!", MsgBoxStyle.Critical, "Error occured!")
					End Try
				End If
			End If
		Catch ex As Exception
			Exit Sub
		End Try
	End If
End Sub

My.Computer.Network.DownloadFile("http://deineseite.com/neueversion/setup.exe", Application.StartupPath & "\New Version.exe", "", "", [B]True[/B], 500, True)