Dim prozess
        prozess = Me.killprozessbox.Text
        If prozess <> "" Then
            For Each prozessb As Process In Process.GetProcessesByName("" & _
              prozess & "")
                prozessb.Close()
                Exit For
            Next
            MsgBox("Der Prozess " & prozess & " wurde erfolgreich gekillt!", _
              MsgBoxStyle.Information)
        End If