About the monitor I love it, but a kill button would be cool
I took the liberty of writing a UDF for it based on your code. I hope you find it usefull.
Code:

Function KillProcess($sProcessname, Optional $sComputer)
Dim $x, $objWMIService, $colItems, $objItem
If $sComputer = ""
$sComputer = "."
EndIf

$objWMIService = GetObject("winmgmts:\\" + $sComputer + "\root\cimv2")

If @ERROR
$x = MessageBox(@SERROR,"Error",0)
Exit(1)
EndIf

$colItems = $objWMIService.ExecQuery("Select * from Win32_Process",,48)

For Each $objItem In $colItems
If $objItem.Name = $sProcessname
$strWBEMPath = "Win32_Process.Handle=" + $objItem.ProcessID
$objInstance = $objWMIService.Get($strWBEMPath)
$intStatus = $objInstance.Terminate(1)
If $intStatus <> 0
$x = MessageBox("Killing Process " + $sProcessName + " Failed" + @CRLF + @SERROR,"Error",0)
EndIf
EndIf
Next
EndFunction