Dim NetInterface() As System.Net.NetworkInformation.NetworkInterface = _
          System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces
        Dim N As System.Net.NetworkInformation.NetworkInterface
        Dim t As System.Net.NetworkInformation.IPv4InterfaceStatistics
        Dim Down, Up As Integer
 
 
        For Each N In NetInterface
            If N.NetworkInterfaceType = _
              Net.NetworkInformation.NetworkInterfaceType.Ethernet Then
                t = N.GetIPv4Statistics
                Down = t.BytesReceived
                Up = t.BytesSent
            End If
        Next