Мне надо последовательно переключать на LTP порту - VB

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

Добрый день. Тут такая тема. Собрана схема, которая управляет через ключи шаговыми двигателями. Проблемма вот в чем. Мне надо последовательно переключать на LTP порту 2,3,4,5 контакты, чтобы последовательно переключать четыри обмотки двигателя. Но, стандартный таймер не справляется, и выдает минимальное время переключения 10 - 20 мс, хотя задаю ему 3 мс. Тоесть, начиная примерно с 30 мс изминений не наблюдается (что 3 мс, что 30 мс - одной и тоже, обмотки переключаются одинаково). В чем проблемма собственно? Не справляется системма? Нехватает ресурсов для программы? Или я чтото не так делаю? Возможно ли это исправить, написав на АПИ таймер?

Решение задачи: «Мне надо последовательно переключать на LTP порту»

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

                            Private Function PereklychNojki(nojka as long)
Do
Записать_в_Порт &h378, nojka ' Открывается нужная ножка
for i = 1 to 100 step 0.1
    next
doevents
loop
end function
                        