Enum NetworkAvailability As Integer    Other = 1    Unknown = 2    RunningFullPower = 3    Warning = 4    InTest = 5    NotApplicable = 6    PowerOff = 7    OffLine = 8    OffDuty = 9    Degraded = 10    NotInstalled = 11    InstallError = 12    PowerSaveUnknown = 13    PowerSaveLowPowerMode = 14    PowerSaveStandby = 15    PowerCycle = 16    PowerSaveWarning = 17End Enum' Returns the network availability' Requires a reference to System.Management and the respective ImportsFunction GetNetworkAvailability() As NetworkAvailability    Dim mos As New ManagementObjectSearcher _        ("SELECT * FROM Win32_NetworkAdapter")    Dim mo As ManagementObject    For Each mo In mos.Get()        Return CType(Integer.Parse(mo("Availability").ToString()), _            NetworkAvailability)    NextEnd Function