[VB.NET] Implementare ciclo di istruzioni all'avvio di un servizio

[sonato arctico]

grazie alle vostre indicazioni ho inserito il seguente codice in OnStart:

   Protected Overrides Sub OnStart(ByVal args() As String)

        Dim workerThread = New Thread(New ThreadStart(AddressOf ServiceWorkerMethod))
        workerThread.Start()

End Sub 

quindi a parte ho il mio worker thread:

Public Sub ServiceWorkerMethod()

Do
...codice
Loop

End Sub 

Funziona correttamente ma non mi ripete le istruzioni nel ciclo, come mai?