C# / VB.NET - Problema Aggiornamento ProgressBar

Qualcuno potrebbe aiutarmi gentilmente a capire dove sbaglio?

Il mio problema e cercare di Uploadare un File
ma aggiornare la progess bar a quanti Byte di Trasferimento e attualmente questo e il codice che ho scritto mi dite dove ho sbagliato? palse

Imports System.Windows.Forms
Imports System.Uri
Imports System.Net.WebClient

Public WithEvents TCP As New System.Net.WebClient


Private Sub Dialog1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

---- Codice Upload

End Sub



 Private Sub PrgChngd(ByVal sender As Object, ByVal e As System.Net.UploadProgressChangedEventArgs)

        Dim percent = e.ProgressPercentage 
        Dim Bytes = e.BytesSent 
        Dim Filesize = e.TotalBytesToSend
        bts.Text = Bytes
        b.Text = percent
        tb.Text = Filesize
        ProgressBar1.Value = percent

    End Sub

il File lo carica
ma la progressbar resta immobile
Grazie in anticipo
aspetto un eventuale risposta

resta immobile perchè la procedura PrgChngd non è associata a nessun evento (non la clausola Handles dopo i parametri).

Private Sub PrgChanged(sender As Object, e As ProgressChangedEventArgs) Handles TCP.ProgressChanged

End Sub

ciao totem

Mi dice Impossibile trovare L'evento ProgressChanged

ho Sostituito con 
Private Sub PrgChngd(ByVal sender As Object, ByVal e As System.Net.UploadProgressChangedEventArgs) Handles TCP.UploadProgressChanged

Ma nulla nemmeno me l'aggiorna

Ho invece Provato con lo stesso medoto con il download

Con il download Funziona perfettamente
Ma con l'upload c'è qualche problema che non sò.

Private Sub TCP_UploadProgressChanged(ByVal sender As Object, ByVal e As System.Net.UploadProgressChangedEventArgs) Handles TCP.UploadProgressChanged

    End Sub

Così dovrebbe funzionare, non può non trovarti l'evento, dato che esiste.