task manager.vb

Public Class task_manager

    Private Sub task_manager_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 / 1024), 0))
            ListView1.Items(Count).SubItems.Add(Process.Responding)
            ListView1.Items(Count).SubItems.Add(Process.StartTime.ToString.Trim)
            ListView1.Items(Count).SubItems.Add(Process.Id)
            Count += 1
        Next
        ToolStripStatusLabel1.Text = "Processes: " & ListView1.Items.Count
    End Sub

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        For Each Process As ListViewItem In ListView1.SelectedItems
            System.Diagnostics.Process.GetProcessById(Process.SubItems(4).Text).Kill()
        Next
        task_manager_Load(Nothing, Nothing)
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        task_manager_Load(Nothing, Nothing)
    End Sub

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