Service and COM in .NET

[pdube]

I have been trying for a few weeks to have a service that calls a COM
in .NET

I made a service in .NET following simple instructions I found on the
web. It worked fine. Then I needed to make a call to my COM object,
which is compiled in VB.NET and it just does not work. I found out it
fails at the CreateObject, and I just can't find why. If I call a COM
object I had made in VB6 it works fine. If I call my COM in VB.NET
from an ASP page, it works fine too.

So I managed to have minimal code to debug this and still get the same
error. Anyone can make this work?

Here is my code for the service:

'Option Strict On
Option Explicit On
Public Class Tasks
Const TimerInterval As Integer = 10 ' number of seconds between each
polling cycle

Private mvTimer As New System.Timers.T imer(TimerInter val * 1000)
' This function is called at the start of the service.
Protected Overrides Sub OnStart(ByVal args() As String)
WriteEventLog(" entering Tasks Service")

AddHandler mvTimer.Elapsed , AddressOf mvTimer_Tick
mvTimer.Enabled = True
End Sub
' This function is called at the stop of the service
Protected Overrides Sub OnStop()
WriteEventLog(" exiting Tasks Service")
End Sub
' This function is called at every polling cycle
' to get new tasks executed
Private Sub mvTimer_Tick(By Val pSender As Object, ByVal pArgs As
System.Timers.E lapsedEventArgs )
On Error GoTo ErrorHandling

'this event had better fire!!
WriteEventLog(" Tasks event tick #2")

Dim ObjTest As Object
Dim result As Integer

ObjTest = CreateObject("T est.Test1")
result = ObjTest.DoIt()

WriteEventLog(" in tick......; result = " & result)

ErrorHandling:
WriteEventLog(" Error = " & Err.Description )

End Sub

End Class

And here's my code for my COM:

Option Strict On
Option Explicit On

Imports System.Enterpri seServices
Imports System.Reflecti on
Imports System.Runtime. InteropServices

<ComVisible(Tru e)Public Class Test1
Inherits ServicedCompone nt

Public Function DoIt() As Integer
DoIt = 45
End Function
End Class

When I run the service I get a message (in event viewer) saying "Error
= Cannot create ActiveX component." (being trapped by the error
handling in mvTimer_Tick)

Paul