With ListView1
  If Not .SelectedItem Is Nothing Then
    With .SelectedItem
      ' TaskID des selektierten Eintrags auslesen
      lTaskID = Val(.SubItems(2))
 
      Dim hTask As Long 
      Dim lResult As Long 
      hTask = OpenProcess(PROCESS_TERMINATE, 0&, lTaskID) 
      lResult = TerminateProcess(hTask, 1&) 
      lResult = CloseHandle(hTask) 
    End With
  End If
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de