Fehler 1053: Der Dienst antwortete nicht rechtzeitig auf die Start- oder _
  Steuerungsanforderung.

Protected Overrides Sub OnStart(ByVal args() As String)
 
        If ReadValue(sKey, "AnzahlExporte") = "" Then
            lngAnzahlExporte = 1
        Else
            lngAnzahlExporte = CLng(ReadValue(sKey, "AnzahlExporte"))
        End If
 
        Try
            myWorkerThread.Start()
        Catch ex As Exception
        End Try
 
    End Sub