سلام.

توسط فانکشن زیر که نوشتم می تونید مقدار مصرفی پهنای باند رو به دست بیارید . این فانکشن خروجی رو برحسب بایت میده . که خودتون میتونید با ضرب و تقسیم به واحدهای کوچک تر یا بزرگتر تقسیمش کنید

کد:
    Public Function BoundWidthUsage() As String

        Dim ntj As String = Nothing

        Dim shd As String = Nothing



        Shell("cmd /c netstat -e -a > shd.txt", vbHide, True)

        Dim rdr As New IO.StreamReader(Application.StartupPath + "\shd.txt")

        While Not rdr.EndOfStream

            Dim res As String = rdr.ReadLine

            If res.StartsWith("Bytes") = True Then

                shd = res

            End If

        End While

        rdr.Close()



        Dim sp() As String = shd.Split(Convert.ToChar(32))

        For i = 0 To sp.Length - 1

            If sp(i) = "Bytes" Or sp(i) = "" Or sp(i) = " " Then

            Else

                ntj = sp(i).ToString

                Exit For

            End If

        Next



        Return ntj



        If IO.File.Exists(Application.StartupPath + "\shd.txt") Then IO.File.Delete(Application.StartupPath + "\shd.txt")

    End Function


روش استفاده:
        TextBox1.Text = BoundWidthUsage()


** یاعلی - موفق باشید **