STA Threading Urgent Please

[Stu]

Hi,

i have some vb dot net code which needs to be a com+ component ie STA
threaded so variables etc are protected.
So ive built the component and set it up with component services
But when i instaniate the component it keeps telling me its no STA apartment
See following code :-

Any ideas please this is very urgent

TIA

Stu


Imports System.Runtime.InteropServices
Imports System.EnterpriseServices
Imports System.Threading

Public Class Calculate
Inherits ServicedComponent
Public Sub New()
Dim newThread As Thread = New Thread(AddressOf ThreadMethod)

Try
newThread.ApartmentState = ApartmentState.STA
newThread.Start()

Thread.Sleep(300)
' m_count =
System.Threading.Interlocked.Increment(s_count)
If System.Threading.Thread.CurrentThread.ApartmentSta te <>
System.Threading.ApartmentState.STA Then
Throw New Exception("Component is not in STA Mode")
Exit Sub
End If

Catch ex As Exception
Throw New Exception(ex.Message)
Exit Sub
End Try

End Sub
Private Sub threadMethod()
Thread.Sleep(100)
End Sub

Protected Overrides Function canBePooled() As Boolean ''c
Return m_canBePooled
End Function

Protected Overrides Sub activate() ''c
m_canBePooled = False
End Sub

Protected Overrides Sub deactivate() ''c
m_canBePooled = True
End Sub
................
..........................
................................