Public Class Form1
 
 
    Private Property Kill As String
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click 'prozess beenden
        Kill = listbox1.SelectedItem.ToString
2:      Dim pProcess() As Process = _
  System.Diagnostics.Process.GetProcessesByName(Kill)
3:      For Each p As Process In pProcess
4:          DialogResult = MessageBox.Show("Möchten Sie den Prozess beenden?" & _
  "Nicht gespeicherte Daten könnten verloren gehen." & Environment.NewLine & _
  Environment.NewLine & "Prozessname: " & listbox1.SelectedItem.ToString, _
  "Prozess Manager", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation)
5:          If DialogResult = Windows.Forms.DialogResult.Yes Then
6:              p.Kill()
7:          Else
8:              MessageBox.Show("Prozess nicht beendet!", "Prozess Manager", _
  MessageBoxButtons.OK, MessageBoxIcon.Information)
9:          End If
10:     Next
        On Error Resume Next
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load 'prozessliste beim start anzeigen
        Dim pc As System.Diagnostics.Process
        For Each pc In System.Diagnostics.Process.GetProcesses()
            listbox1.Items.Add(pc.ProcessName)
        Next
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click 'prozessliste aktualisieren
        listbox1.Items.Clear()
        Dim pc As System.Diagnostics.Process
        For Each pc In System.Diagnostics.Process.GetProcesses()
            listbox1.Items.Add(pc.ProcessName)
        Next
    End Sub
End Class