Вывод данных в LPT - VB

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

Добрый день! Подскажите пожалуйста Есть Процедура

                    Листинг программы
                
 
                        
                          
                    
Private Sub  Timer1.Timer()
...
a=0
If Inp(&H379) =63 Then a=a+1
Text1.Text = a
End Sub
...

Как бы она работает, но надо, чтобы а+1(сигнал) получался только после того, когда происходило замыкание и размыкание геркона и сигнал на LPT порт можно было принять, т.е. при подаче сигнала на порт сигнал считывался только после того как замкнул контакт = 1, разамкнул, замкнул +1. А то чуть дольше замкнул уже не 2, в все 22. Подскажите, что куда и как прописать.

Решение задачи: «Вывод данных в LPT»

textual
                            Листинг программы 
                        
Out &H378, 1
For I=0 To 30999 (Почему то если ставишь 40000 и выше дает ошибку "....6"
Next I
Out &H378, 0