A parte il fatto che cercherei di semplificare il processo piuttosto che essere costretto ad eseguirlo in un thread separato ..... ad ogni modo visto che è frutto del tuo lavoro cerchiamo di valorizzarlo dandoti comunque la soddisfazione di farlo funzionare a modo tuo.

codice:
Private NewThread As Thread
    Delegate Sub Aggiorna(ByVal argValue As Integer)

    Private Sub EseguiOperazione()
        NewThread = New Thread(AddressOf _EseguiOperazione)
        NewThread.start
    End Sub

    Private Sub _EseguiOperazione()
        'TODO: TUO CODICE

        'Aggiorna la progress Bar
        Me.Invoke(New Aggiorna(AddressOf _Aggiorna), ValoreProgressBar)
    End Sub

    Private Sub _Aggiorna(ByVal argValue As Integer)
        TuaProgressBar.Value = argValue
    End Sub
Facci sapere....
Ciao