C# / VB.NET - errore aggiornamento

io ho creato con vari aiuti un aggiornamento per il mio programma con questo codice:

Imports System.IO
Imports System.Net
Public Class aggiornamento
    Dim WithEvents AGG As New WebClient
    Dim WithEvents downloadagg As WebClient
    Dim sourceurl = "http://servers.altervista.org/aggiornamenti_programmi/dllocxregister/aggiornamenti.txt"
    Dim filedir = My.Application.Info.DirectoryPath.ToString
        

    Private Sub AGG_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles AGG.DownloadFileCompleted
        Dim filetext As String = IO.File.ReadAllText(My.Application.Info.DirectoryPath.ToString & "\" & "aggiornamenti.txt")
        If filetext > My.Application.Info.Version.ToString Then
            MsgBox("Il tuo programma non e aggiornato, ora inizierà l'aggiornamento", MsgBoxStyle.OkOnly, MsgBoxStyle.Critical)
            Try
                downloadagg.DownloadFileAsync(New Uri("http://servers.altervista.org/aggiornamenti_programmi/dllocxregister/dllocxregister.exe"), ("C:\"))
            Catch ex As Exception
                MessageBox.Show(ex.Message, "Errore:", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
            Label2.Text = "Aggiornamento in corso..."
            Label1.Text = "Nuova versione trovata!"
        Else
            MsgBox("Il programma è aggiornato all'ultima versione disponibile!", MsgBoxStyle.OkOnly, MsgBoxStyle.Information)
            Label1.Text = "Nessuna nuova versione trovata!"
            My.Settings.agg = False
        End If
    End Sub

    Private Sub downloadagg_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles downloadagg.DownloadFileCompleted
        Shell(My.Application.Info.DirectoryPath & "\" & "dllocxregister.exe", AppWinStyle.Hide)
        End
    End Sub

    Private Sub downloadagg_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles downloadagg.DownloadProgressChanged
        ProgressBar1.Value = e.ProgressPercentage
    End Sub
    Private Sub aggiornamento_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = 100
        Try
            AGG.DownloadFileAsync(New Uri(sourceurl), (filedir))
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Aggiornamento Fallito:", MessageBoxButtons.OK, MessageBoxIcon.Error)
            My.Settings.agg = False
        End Try
    End Sub

    Private Sub controllo_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles controllo.Tick
        If My.Settings.agg = False Then
            Me.Close()
            Form1.Show()
        End If
    End Sub
End Class

però mi dà questo errore: Riferimento a un oggetto non impostato su un'istanza di oggetto
ma non riesco a capire perchè mi dà questo errore sapete aiutarmi? oppure sapete qualche altro codie per creare un updater?

probabilmente è dovuto a questo

Dim WithEvents downloadagg As WebClient 

prova a dichiararlo così

Dim WithEvents downloadagg as New WebClient

dovrebbe andare..

funzionava un pò meglio però ho dovuto fare degli aggiustamenti allora in questa stringa che ho cambiato cioè nella form load dell'aggiornamento ho questa stringa:

AGG.DownloadFileAsync(New Uri("http://servers.altervista.org/aggiornamenti_programmi/dllocxregister/aggiornamenti.txt"), ("C:\"))

Non scarica il file nella directory dove dovrebbe scaricare il file non c'è? come mai?

Dim down As New WebClient
down.Credentials = New NetworkCredential("USERNAME", "PASSWORD")
down.DownloadFile("ftp://servers.altervista.org/aggiornamenti_programmi/dllocxregister/aggiornamenti.txt", "C:\aggiornamenti.txt")

io uso questa sintassi x scaricare un file.. allora gli errori nel tuo codice erano più di uno, infatti non dichiaravi la username e la password x accedere al server, poi usavi http invece ke ftp x scaricare il file e infine quando avevi scritto "C:\" e basta è errato, infatti devi specificare anke il nome del file di destinazione, io ti ho messo x comodità sempre lo stesso, ma tu al posto ke "C:\aggiornamenti.txt" puoi scriverci il nome ke vuoi..

si ora funziona però ci sono problemi su problemi UFF. sto facendo un updater mi dà l'errore di istanza d'oggetto ecc...adesso vedo poi posterò il problema