Option Explicit
Private nTime As Single
Private nBytes As Long

nBytes = 0
nTime = Timer
Winsock1.Connect ...

Private Sub Winsock_DataArrival(..)
  Dim sData As String
  Dim nKBs As Double
 
  Winsock1.GetData, vbString
  nBytes = nBytes + Len(sData)
  nKBs = (nBytes / 1024) / (Timer - nTime)
  lblStatus.Caption = CStr(nBytes) " empfangen mit " Format$(nKBs, "0.0") & "" & _
    "KB/s"
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de