>I think you missed some of my code. I have two parts, one when running as a Service, uses ServiceBase.Run():

Thanks, I had simplified too much.

This is what I have now:

    Protected Shared Sub Startup(toArgs As String(), toWindowsService As WindowsService)

        ' If this from the Windows Service
        If Not Environment.UserInteractive Then
            Run(toWindowsService)
        Else
            toWindowsService.OnStart(toArgs)
            toWindowsService.OnStop()
        End If

    End Sub

    Protected Overrides Sub OnStart(ByVal toArgs As String())
        MyBase.OnStart(toArgs)

This still works ok from the Services interface. But, when clicking on the EXE, it is still the same thing.

I installed the service with sc. I do not know if this could be a factor.