VB初心者質問スレPart2

>>832
転送開始時に
　　st=Date()
として、GetChunk() 後に
　　受信済バイト数 / DateDiff("s",st,now)
すれば出ると思いますが。