Performance counter error

[stricknyn]

Hello all,

I have this code sample from a book I'm reading which looks to be incorrect:

Imports System.Diagnostics

Sub Main
        Dim pc As New PerformanceCounter("PerfApp", "Clicks", False) 'excepiton here
        pc.Increment()
        counterLabel.Content = pc.NextValue().ToString()
End Sub

There excepion message I get is: The requested Performance Counter is not a custom counter, it has to be initialized as ReadOnly.

I looked for a property to see if I can set it but couldn't find one. Anyone know how I can correct this error?

Thanks,

Strick