My Taskmanager

Public Class Taskbar

Private Sub Taskbar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim process As New Process()
Dim count As Integer = 0
ListView1.Items.Clear()
For Each process In process.GetProcesses(My.Computer.Name)
On Error Resume Next
ListView1.Items.Add(process.ProcessName)
ListView1.Items(count).SubItems.Add(FormatNumber(Math.Round(process.PrivateMemorySize64)))
ListView1.Items(count).SubItems.Add(process.Responding)
ListView1.Items(count).SubItems.Add(process.StartTime.ToString)
ListView1.Items(count).SubItems.Add(process.Id)
ListView1.Items(count).SubItems.Add(process.PriorityClass)
ListView1.Items(count).SubItems.Add(process.TotalProcessorTime.Milliseconds)
ListView1.Items(count).SubItems.Add(process.Threads.Count)
ListView1.Items(count).SubItems.Add(process.StandardOutput.CurrentEncoding.CodePage.ToString)
count += 1
Next
Label1.Text = "Process::" & count

End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Dim cpuload As Integer = CDec(PerformanceCounter1.NextValue.ToString)
cpuload = 100 - cpuload
Label2.Text = cpuload.ToString & "%"
On Error Resume Next
ProgressBar1.Value = cpuload.ToString()
Me.Refresh()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
For Each Process As ListViewItem In ListView1.SelectedItems
System.Diagnostics.Process.GetProcessById(Process.SubItems(4).Text).Kill()
Next
Catch ex As Exception
End Try
End Sub

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

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Taskbar_Load(Nothing, Nothing)
End Sub
End Class