So it means increasing the packet size won't increase the upload/download speed?
I have one more problem please,
you implemented stuff like speed, time remaining and bytes sent for sender side, but not in the receiver side which i can't figure out.
Can you please help me with this. Thanks Again
Here is the code from the sender side
How i can change it to work with the receiver side?
Private Sub tmrCalcSpeed_Timer()
Static PrevSent As Long
Dim BSentPerSec As Long, DataSent As Long, DataLen As Long
Dim SecondsLeft As Single
If iFileNum > 0 Then
DataSent = Loc(iFileNum)
DataLen = LOF(iFileNum)
BSentPerSec = DataSent - PrevSent
PrevSent = DataSent
SecondsLeft = (CSng(DataLen) - CSng(DataSent)) / CSng(BSentPerSec)
PrevSent = 0
lblSendSpeed.Caption = Format(DataSent / 1024#, "###,###,##0.00") & " KBytes Sent, " & _
Format(CDbl(BSentPerSec) / 1024#, "#0.00") & " Kb/Sec, " & _
"Time left: " & Format(SecondsLeft \ 3600, "00") & ":" & Format(SecondsLeft \ 60, "00") & ":" & Format(SecondsLeft Mod 60, "00")