Process Manager

 Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListBox1.Items.Clear()
        For Each p As Process In Process.GetProcesses
            ListBox1.Items.Add(p.ProcessName.ToLower)
        Next
        ListBox1.Sorted = True
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListBox1.Items.Clear()
        For Each p As Process In Process.GetProcesses
            ListBox1.Items.Add(p.ProcessName.ToLower)
        Next
        ListBox1.Sorted = True
    End Sub



    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Process.GetProcessesByName(ListBox1.SelectedItem).Length > 0 Then
            Dim myProcesses() As Process
            Dim myProcess As Process
            myProcesses = Process.GetProcessesByName(ListBox1.SelectedItem)
            For Each myProcess In myProcesses
                myProcess.Kill()
            Next myProcess

        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ListBox1.Items.Clear()
        For Each p As Process In Process.GetProcesses
            ListBox1.Items.Add(p.ProcessName.ToLower)
        Next
        ListBox1.Sorted = True
    End Sub

    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
        form2.show()

    End Sub
End Class