VB - CPU-Last eines bestimmten Prozesses ermitteln

   Dim cpuCounter = New PerformanceCounter("Processor", "% Processor Time", "_Total")
    Dim procCounter = New PerformanceCounter("Process", "% Processor Time", "firefox")

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Value = CInt(cpuCounter.NextValue())
        ProgressBar2.Value = CInt(procCounter.NextValue())
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Timer1.Interval = 100
        Me.Timer1.Stop()

    End Sub

  
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
    End Sub