Fulvio C
Obrigado amigo. Aqui a resolução para os colegas:
Dim sw As New Stopwatch sw.Start() 'evento ProgressChanged Dim vel As Double = Format((CDbl(e.BytesSent) / 1024) / sw.Elapsed.TotalSeconds, "#.00")