Membuat Kill Process Manager VB NET

source code :
Imports System.Diagnostics.Process
Public Class Form1
    Inherits System.Windows.Forms.Form
    Dim proces As Process
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'on error goto fix
        'dim str as string=inputbox('enter process to kill","process killer","killer")
        For Each proces In GetProcesses()
            'if proces.processname=str.errortostring or process.processname="smss" then
            '   proces.kill()
            'end if
            Me.ListBox1.Items.Add(proces.ProcessName)
        Next
        'fix
        'end
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'msgbox(me.listbox1.selecteditem)
        For Each proces In GetProcesses()
            If proces.ProcessName = Me.ListBox1.SelectedItem Then
                proces.Kill()
            End If
        Next
        Me.ListBox1.Items.RemoveAt(Me.ListBox1.SelectedIndex)
    End Sub

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