Option Explicit
Private nBytes As Long
Private nSek As Long
 
Private Sub Timer1_Timer()
  nSek = nSek + 1
  lblStatus.Caption = Format$(nBytes / nSek, "0.0") & "Bytes/s"
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de