Public Class Form1

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

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Value = PerformanceCounter1.NextValue
ProgressBar2.Value = PerformanceCounter2.NextValue
ProgressBar3.Value = PerformanceCounter3.NextValue
Label2.Text = ProgressBar1.Value.ToString & "%"
Label3.Text = ProgressBar2.Value.ToString & "%"
Label5.Text = ProgressBar3.Value.ToString & "%"
End Sub
End Class