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.Enterpri seServices
Imports System.Threadin g

Public Class Calculate
Inherits ServicedCompone nt
Public Sub New()
Dim newThread As Thread = New Thread(AddressO f ThreadMethod)

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

Thread.Sleep(30 0)
' m_count =
System.Threadin g.Interlocked.I ncrement(s_coun t)
If System.Threadin g.Thread.Curren tThread.Apartme ntState <>
System.Threadin g.ApartmentStat e.STA Then
Throw New Exception("Comp onent is not in STA Mode")
Exit Sub
End If

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

End Sub
Private Sub threadMethod()
Thread.Sleep(10 0)
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
............... .
............... ...........
............... ............... ..