Development VB.Net Tutorial

public class Test
   public Shared Sub Main
        Dim PerformanceCounter2 As System.Diagnostics.PerformanceCounter
        PerformanceCounter2 = New System.Diagnostics.PerformanceCounter()
        Console.WriteLine("Category: " & PerformanceCounter2.CategoryName)
        Console.WriteLine("Counter: " & PerformanceCounter2.CounterName)
        Console.WriteLine("Instance: " & PerformanceCounter2.InstanceName)
        Console.WriteLine("Machine: " & Environment.MachineName)
        Console.WriteLine("RawValue: " & PerformanceCounter2.RawValue)
        
   End Sub
End class
Category:
Counter:
Instance:
Machine: RNTSOFT
Unhandled Exception: System.InvalidOperationException: Failed to initialize because CategoryName is
missing.
at System.Diagnostics.PerformanceCounter.Initialize()
at System.Diagnostics.PerformanceCounter.NextSample()
at System.Diagnostics.PerformanceCounter.get_RawValue()
at Test.Main()