Простая реализация многопоточности на VB6 средствами ActiveX EXE без WinAPI и падений IDE

Формулировка задачи:

Вот попался мне такой замечательный исходник. Пример реализации многопоточности на VB.
На его основе, например можно сделать многопоточный Winsock сервер обрабатывающий запросы пользователей без задержки.
Для запуска примера надо сделать следующее:

Действительно это работает!

Решение задачи: «Простая реализация многопоточности на VB6 средствами ActiveX EXE без WinAPI и падений IDE»

textual
                            Листинг программы 
                        
                            Private Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (dest As Any, source As Any, ByVal bytes As Long)