Private Declare Function GetTcpStatistics Lib "iphlpapi" _
   (pStats As PMIB_TCPSTATS) As Long
 
Private Type PMIB_TCPSTATS
    dwRtoAlgorithm As Long
    dwRtoMin As Long
    dwRtoMax As Long
    dwMaxConn As Long
    dwActiveOpens As Long
    dwPassiveOpens As Long
    dwAttemptFails As Long
    dwEstabResets As Long
    dwCurrEstab As Long
    dwInSegs As Long 'einkommende Segmente
    dwOutSegs As Long 'ausgehende Segmente
    dwRetransSegs As Long
    dwInErrs As Long 'fehlerhaft eingehend
    dwOutRsts As Long 'fehlerhaft ausgehende
    dwNumConns As Long
End Type
 
Private Sub Form_Load()
Dim udtStats As PMIB_TCPSTATS
 
GetTcpStatistics udtStats
MsgBox "Einkommende Segments: " & udtStats.dwInSegs
 
End Sub