запуск таймера через com-порт. VB6

[K@kTuS]

кому не сложно, напишите кусок кода.
требуется, что бы при перемыкании двух контактов com-порта запускался/останавливался таймер.
VB6.

[K@kTuS]

разобрался

[lxa85]

разобрался »
поделись? :)

[K@kTuS]

MScomm1.CommPort = 1
MScomm1.PortOpen = True
MScomm1.Settings = "1200,N,8,1"
MScomm1.DTRenabled = True
Timer2.Interval = 5

Private Sub timer2_timer()
If mscomm1.CTSholding = True Then
timer1.enanled = True
End If
End Sub

использовал cts и dtr