[mycraz]

hi,
I'm trying to make multi-threads.I got the error 249 : activex component can't create object. I'm not sure my steps correct or not. Someone please help me confirm with it.Thank you.
I open a new activex.exe project and copy this code into the class module.then i compiled this to project.exe.

Public Function addOne(x As Long)
x = x + 1
addOne = x
End Function

Then i open another project in standard.exe and copy this into a form and click on project to make project1.exe references to this standard.exe.Then i run my project.

Private Sub command1_click()
Set tc1 = CreateObject("Project1.ThreadClass")

For i = 1 To 20000000
   DoEvents
   Label1.Caption = tc1.addOne(i)
   Label1.Refresh
Next
End Sub


Private Sub command2_click()
Set tc2 = CreateObject("Project1.ThreadClass")

For j = 1 To 20000000
   DoEvents
   Label2.Caption = tc2.addOne(j)
   Label2.Refresh
Next
End Sub