1 Imports System.Net.NetworkInformation Dim myNA() As NetworkInterface = NetworkInterface.GetAllNetworkInterfaces 2 3 Me.Text = myNA(0).Speed