Код для автодозвона - VB

Dim timeout as integer
 
Sub Dial()
'Дозвон
...
timeout=0
TmrDial.interval=1000 ' Интервал 1 секунда
TmrDial.enabled=true
...
End Sub
 
Sub TmrDial_Timer()
 timeout=timeout+1
 if instr(modem1.input,"BUSY")>0 or timeout>=60 then 
   ' Занято или прошло 60 секунд, тогда
   Call Flash ' Сброс 
   ' Небольшая задержка 
   ...
   call Dial ' Набрать заново
 end if
End Sub
 
Sub Flash()
' Сброс
If Modem1.PortOpen = False Then Exit Sub
Modem1.PortOpen = False
TmrDial.enabled=False
End Sub