Múltiples hilos en VB

Dim g_ReceiveThread es System. Threading, Threading

Crear:

g_ReceiveThread = nuevo sistema. threading . Thread(dirección del proceso de recepción)

Inicio:

g_ReceiveThread. Inicio()

Fin:

dimwaitstart as long = mi computadora cuenta con ticks +1000 'Tiempo de espera.

Mientras (g_ReceiveThread.ThreadState & lt& gtSystem.Thread.ThreadState.Stop)

Si mi. Computadora . Clock.TickCount & gt=Entonces comienza a esperar

g_ReceiveThread. Abort()

Finaliza la aplicación si...

DoEvents()

Hora de finalización