Dim t As Threading.Timer
    Dim pc As Diagnostics.PerformanceCounter
 
    Private Sub CheckValues(ByVal state As Object)
        Me.Invoke(New DelUpdateValues(AddressOf UpdateValues), pc.NextValue())
    End Sub
 
    Private Sub UpdateValues(ByVal processor As Single)
        Label1.Text = Math.Round(processor, 0).ToString() & " %"
    End Sub
 
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        t.Dispose()
        pc.Dispose()
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        pc = New Diagnostics.PerformanceCounter("Processor", "% Processor" & _
        "Time", "_Total")
        t = New Threading.Timer(New Threading.TimerCallback(AddressOf _
        CheckValues), Nothing, 0, 1000)
    End Sub

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov