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
Code:
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)
    Else
        PrevSent = 0
    End If
    
    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")
End Sub
How i can change it to work with the receiver side?