Создание 'code only' Timer (API) - VB

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

Решил я как-то таймер сотворить. Чтоб не контрол ... а чтоб 'code only' был (о причинах не пишу). Сначала пробовал SetTimer/KillTimer (из user32.dll). Всё хорошо, но ... точности никакой и минимальный тик 50ms (для 9x, для НТ поменьше чуть). Мне не подошло. Нашёл замечательную замену в виде timeSetEvent (и др. иэ winmm.dll). И точность установить можно и мин тик 1ms но есть одна проблема - при вызове CallBack функции получаю GPF. Если запускаю из VBIDE всё хорошо, а вот из exe нет. Люди, кто использовал эту штуку (timeSetEvent) поделитесь опытом - что за беда ? Прим: Имеется ввиду отдельный исп. файл ActiveX exe, поскольку в одном потоке (ActiveX dll или в использующей программе) чревато тем-же GPF но уже при любом сбое. И дебагить можно. Заранее благодарю. Извините что заставил так много читать

Решение задачи: «Создание 'code only' Timer (API)»

textual
                            Листинг программы 
                        

                            '*****
'dll
'CoolTimer.cls
public event TikTak(...)
 
sub FireEvent
...
raiseevent TikTak(...) 'отсюда прямиком в m_Timer_TikTak(...)
...
end sub
 
'*****
'exe, dll или ocx использующий dll
'.mdl, .cls, .frm
private withevents m_Timer as CoolTimer
 
private sub m_Timer_TikTak(...)
...
end sub
                        