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

Dim CTRLLPDSVC As System.ServiceProcess.ServiceController
CTRLLPDSVC = New System.ServiceProcess.ServiceController("lpdsvc")
         CTRLLPDSVC.Status = _
           System.ServiceProcess.ServiceControllerStatus.Running