
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim p As Process
For Each p In System.Diagnostics.Process.GetProcesses
ListBox1.Items.Add(p.ProcessName)
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
On Error Resume Next
Name = TextBox1.text 'just write notepad or anything without .exe
For Each ProgrammName In Process.GetProcessesByName(Name)
ProgrammName.Kill()
Next
End Sub

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