Vb.Net progressbar che mostra avanzamento durante la lettura.

[TcpClient]

Ho un semplice server che gira sotto tcp,
Il client si connette e invia al server, quello che voglio fare è, mostrare l'avanzamento dei byte ricevuti(che ricevo correttamente) lato server, il codice è in un modulo:

Sub Listen()

        ' Dim localAddress As IPAddress = IPAddress.Any
        '  Dim port As Integer = 8080

        tcpListener.Start()
        tcpClient = tcpListener.AcceptTcpClient()
        If IO.File.Exists(Application.StartupPath + "\DB\DBISO1.accdb") Then IO.File.Delete(Application.StartupPath + "\DB\DBISO1.accdb")
        Using networkStream As NetworkStream = tcpClient.GetStream()
            Using stream As Stream = New FileStream(Application.StartupPath + "\DB\DBISO1.accdb", FileMode.Create, FileAccess.ReadWrite)
                Dim bytes As [Byte]() = New [Byte](1023) {}
                Dim length As Integer = networkStream.Read(bytes, 0, bytes.Length)
                incrementa = 0
                While length > 0
                    incrementa += 1
                    cn()
                    stream.Write(bytes, 0, length)
                    length = networkStream.Read(bytes, 0, bytes.Length)
                    Application.DoEvents()
                End While
            End Using
        End Using
        tcpClient.Close()
        Application.DoEvents()
        Dim myThread As New Thread(New ThreadStart(AddressOf Listen))
        myThread.IsBackground = True
        myThread.Start()

    End Sub