Private Sub KillRunningNotepadProcess()
        For Each p As Process In Process.GetProcessesByName("Notepad")
            Dim dlgRes As MsgBoxResult = MessageBox.Show(String.Format("Editor" & _
              "mit dem Titel ""{0}"" wirklich beenden?", p.MainWindowTitle), _
              "Kill ProcessID " & p.Id, MessageBoxButtons.YesNo, _
              MessageBoxIcon.Question)
            If dlgRes = MsgBoxResult.Yes Then
                Try
                    p.Kill()
                    MessageBox.Show(String.Format("Notepad mit ProcessID {0}" & _
                      "wurde erfolgreich beendet.", p.Id), "Kill ProcessID: " & _
                      p.Id, MessageBoxButtons.OK, MessageBoxIcon.Information)
                Catch ex As Exception
                    MessageBox.Show(String.Format("Notepad mit ProcessID {0}" & _
                      "konnte nicht beendet werden.", p.Id), "Kill ProcessID: " _
                      & p.Id, MessageBoxButtons.OK, MessageBoxIcon.Error)
                End Try
            End If
        Next
    End Sub