Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click PerformanceCounter1.CategoryName = "Process" PerformanceCounter1.CounterName = "% Processor Time" PerformanceCounter1.InstanceName = (ListBox1.SelectedItem) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim pList() As System.Diagnostics.Process = _System.Diagnostics.Process.GetProcesses For Each proc As System.Diagnostics.Process In pList ListBox1.Items.Add(proc.ProcessName) Next End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click 'ListBox1. End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick NumericUpDown1.Value = (CInt(PerformanceCounter1.NextValue)) TextBox1.Text = NumericUpDown1.Value Label1.Text = PerformanceCounter1.InstanceName End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End SubEnd Class