' Returns a TimeSpan for the interval of time the system has been up.' EXAMPLE:' Dim ts As TimeSpan = GetSystemUpTime()' Console.WriteLine(String.Format("The system's up time is: {0} days, {1} ' hours, {2} minutes and {3} seconds.", ts.Days, ts.Hours, ts.Minutes, ' ts.Seconds))Function GetSystemUpTime() As TimeSpan Dim pc As PerformanceCounter = New PerformanceCounter("System", _ "System Up Time") pc.NextValue() Return TimeSpan.FromSeconds(pc.NextValue())End Function