help!!! program hangs

[arnas]

I suppose program hangs because the thread doesn't terminates normally. please,take a look at the code
below:

option explicit
Dim myThread As New clsThreads 'the class of thread

Private Sub Form_Load()
myThread.Initialize AddressOf Flicker
myThraed.enable = true 'Flicker sub begins to work
end sub

Private Sub cmdStop_Click()
Set myThread = Nothing
End Sub

******** this is from clsThread class*********
Private Sub Class_Terminate()
Call TerminateThread(uThread.Handle, 0)
lng = CloseHandle(uThread.Handle)
End Sub
***********************************************

so, after I click "cmdStop" button, process stays still
active, but if I make:

Private Sub Form_Load()
myThread.Initialize AddressOf Flicker
SET MYTHREAD = NOTHING
end sub

EVERYTHING IS OK!!!!! so, why if I set class thread
to nothing in form_load sub, the thread terminates normally???

thank You!

[Ober]

Can really tell...

I don't know what you're code is suppose to really do...
but perhaps its you're spelling

You may have typed 'MyThread' wrong...(see below)

myThread.Initialize AddressOf Flicker
myThraed.enable = true 'Flicker sub begins to work

I can take a look if you wanna send the source.

[email protected]