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