Visual Basic - mostrar kb/seg

Vamos a ver, el problema que tengo es el siguiente, tengo dos programas conectados por un winsock, en uno de ellos doy la orden de bajarme un archivo a mi ordenador, lo que no consigo hacer es: en el ordenador desde el que doy la orden mostrar una barra de progreso, en el otro si y asi es como lo muestro:

Private Sub TCP_SendProgress(ByVal bytesSent As Long, ByVal bytesRemaining As Long)
Barra.Min = 0
Barra.Max = bytesSent + bytesRemaining
Barra.Value = bytesSent
End Sub

pero en el otro no puedo, alguien me puede dar alguna idea o en su defecto, como puedo hacer para mostrar en una caja de texto los kb/seg para ver que esta habiendo un movimiento.

Pues se me ocurre que en el data arrival de la pc que recibe midas, por ejemplo con un len() si recibes un string los bytes recibidos y los restes contra los bytesTotal que te regresa la funcion, otra forma que se me ocurre es que envies antes del archivo su tamaño en bytes y de ahi lo tomes como punto de comparación ¿no?