Protected Overrides Sub OnStart(ByVal args() As String)
        ' Code zum Starten des Dienstes hier einfügen. Diese Methode sollte 
        ' Vorgänge
        'MsgBox("TEst")
        drucker = "HP LaserJet 4L" 'ProForma-USA"
        Verbindung = "192.168.227.19"
        server = "d-de-353" 'z-de-proforma"
 
        'MsgBox("Ich bin der dienst aus der lanpe")
        ping = New NetworkInformation.Ping
        xxx.Interval = 600
        xxx.Enabled = True
 
        'Shell("C:\WINDOWS\system32\cmd.exe", AppWinStyle.MaximizedFocus)
 
 
    End Sub
 
 
    Private Sub xxx_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs)
 
        pingr = ping.Send(Verbindung, 2000)
        If pingr.Status = NetworkInformation.IPStatus.TimedOut Then
 
            Dim p As New ManagementPath("\\" + server + _
              "\root\cimv2:Win32_Printer.DeviceID=""" + drucker + """")
            Dim pr As New WMI.Printer(p)
            pr.Pause()
 
        ElseIf pingr.Status = NetworkInformation.IPStatus.Success Then
 
            Dim p As New ManagementPath("\\" + server + _
              "\root\cimv2:Win32_Printer.DeviceID=""" + drucker + """")
            Dim pr As New WMI.Printer(p)
            pr.Resume()
        End If
 
    End Sub
 
    Protected Overrides Sub OnStop()
        ' Hier Code zum Ausführen erforderlicher Löschvorgänge zum Beenden   
'des  Dienstes einfügen.
 
        drucker = ""
        server = ""
        Verbindung = ""
 
    End Sub
 
End Class