Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub
Imports System.Net.NetworkInformation
Public Class Form1
    Dim conection As NetworkInterface
    Dim conectiona As NetworkInterface()
    Dim StastisticsConnect As Ipv4InterfaceStatistics
    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Получаваме всички подключвания
        conectList = NetworkInterface.GetAllNetworkInterfaces()
        'Добавяме на имена на подключовията в ComboBox
        For Each i As NetworkInterface In conectionList
            If Not i.NetworkInterfaceType = NetworkInterfaceType.Loopback Then
                comBox1.Items.Add(i.Name)
            End If
        Next


    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        ' Работим с активните подключвания
        conection = connectList(sender.selectedindex)
        ' Скорост
        LbSpeed.text = "Скорост : " & Val(conection.Speed) / Val(1000000) & " Мбит/с"" ' Скорост в Mb/s"
        ' Тик статистика
        Timer1.Start()

    End Sub
    Dim bytesSent As Long = 0, BytesRec As Long = 0
    Dim Received As Double = 0, Sent As Double = 0, AllTrafic As Double = 0