OnSendProgress
This is a Socket Object event that occurs while the data is being sent.
Group: Event
Applies to: Socket Object events
Example:
Dim WithEvents oSocket As Socket ' module level Dim
Private Sub oSocket_OnSendProgress(ByVal bytesSent As Long, ByVal bytesRemaining As Long)
On Error Resume Next
End Sub