Debugando Serviços do Windows

Geralmente quando vamos criar um serviço do windows temos um problema ao querer debugar o projeto criado.
Ao invéz de criarmos o projeto, instalarmos ele e após ele rodando irmos em Attach to Process e escolhermos o serviço já rodando podemos fazer de um outro modo, mais simples e fácil:

Colocamos diretivas de compilação para verificarmos quando estamos em modo debug, e criamos uma instãncia de nosso service e chamamos seu método Start(), simples não?

       Public Shared Sub Main()
#If DEBUG Then
            Dim servico As New ServicoBuscaDePedidos()
            servico.OnStart(New String() {})
            System.Threading.Thread.Sleep(System.Threading.Timeout.Infinite)
#Else
            ServiceBase.Run(New ServiceBase() {New ServicoBuscaDePedidos()})
#End If
        End Sub

Até mais, espero que gostem deste post.