'Anfang der eigentlichen Arbeit des Dienstes
  Set oService = GetObject("WinNT://" & Environ("computername") & _
    "/SHAREDACCESS,service")
  TrayArea.Visible = True
  If Err.Number = 0 Then
    With oService
          If .Status = 2 Then
           lblStatus.Caption = "wird gestartet"
          End If
          If .Status = 4 Then
            lblStatus.Caption = "aktiv"
            ServiceStop "", "SHAREDACCESS"
          End If
          If .Status = 1 Then
            lblStatus.Caption = "inaktiv"
            '.Put "StartType", 4
            '.SetInfo
          End If
    End With
  Else
    MsgBox "Bitte die Systemadministration benachrichtigen!" & vbCrLf & _
      "Fehler: " & Err.Number & vbCrLf & _
      Err.Description, vbCritical, "Systemdienst-Fehler:"
    'Dienst wegen dem Fehler stoppen
    NTService1.StopService
    'Fehlermeldung ins Eventlog
    Call LogEvent("Systemdienst hat einen Fehler gemeldet und wurde beendet", _
      EVENTLOG_ERROR_TYPE, 109)
  End If