Dim NetworkCurrentSpeed() As Long ' Letzte Netzwerkgeschwindigkeit
Dim NetworkSpeedSampleRate As Long ' Funktionszeit zur Abtastung
 
Private Sub Form1_Load(...
  ReDim Preserve NetworkCurrentSpeed( hier die Anzahl der Adapter )
End Sub
 
Private Sub NetworkAdapterPerformance()
        Dim sw As Stopwatch = Stopwatch.StartNew
 
        Do
            sw.Start()
            Threading.Thread.Sleep(1000)
            ThreadNetworkAdapterPerformance()
            sw.Stop()
            NetworkSpeedSampleRate = CLng(sw.ElapsedMilliseconds / 1000)
            sw.Reset()
        Loop
End Sub
 
Private Sub ThreadNetworkAdapterPerformance()
        If lvwNetwork.InvokeRequired Then
            Dim MyDelegate As New NetworkAdapterPerformanceDelegate(AddressOf _
              ThreadNetworkAdapterPerformance)
            Me.Invoke(MyDelegate)
        Else
 
            Dim i As Integer = 0
            Dim speed As Long
 
            For Each NetItem As NetworkInterface In aNetworkAdapter
 
                speed = NetItem.GetIPv4Statistics.BytesSent + _
                  NetItem.GetIPv4Statistics.BytesReceived
                Me.lvwNetwork.Items(i).SubItems(1).Text = Math.Round((800 * ( _
                speed - NetworkCurrentSpeed(i)) / _
                                                          (NetworkSpeedSampleRa_
                                                          te * NetItem.Speed)), _
                                                          2).ToString & " %"
                NetworkCurrentSpeed(i) = NetItem.GetIPv4Statistics.BytesSent + _
                NetItem.GetIPv4Statistics.BytesReceived
 
                i += 1
            Next
        End If
    End Sub