Dim Processes() As Process
 
Try
Processes = Process.GetProcesses()
 
For Each oProcess As Process In Processes
Debug.WriteLine(oProcess.Id)
Debug.WriteLine(oProcess.ProcessName)
 
Try
If oProcess.ProcessName = "lpdsvc" then
   oProcess.Kill()
end if
Catch
‘can’t kill
End Try
Next
Catch ex As Exception
'log it
Debug.WriteLine(ex.Message)
EventLog.WriteEntry(ex.Message)
End Try

ciao
Elwood

Wer sp?ter bremst, ist l?nger schnell