ник: snipe
чего творим - то
в вашем случае хоть мульярд ставьте толку не будет
вот
Private Sub Form_Timer()
Dim statusint As Variant
statusint = Inp(889)
If statusint = 95 Then
If takt < 7 Then 'задержка 7*[интервал таймера]
If jkl = False Then
Me!RF = Me!RF + Me!StepNet
Call To_TRX
jkl = True
End If
takt = takt + 1
Else
Me!RF = Me!RF + Me!StepNet
Call To_TRX
takt = takt + 1
End If
Else
If statusint = 255 Then
If takt < 7 Then 'задержка 7*[интервал таймера]
If jkl = False Then
Me!RF = Me!RF - Me!StepNet
Call To_TRX
jkl = True
End If
takt = takt + 1
Else
Me!RF = Me!RF - Me!StepNet
Call To_TRX
takt = takt + 1
End If
Else
jkl = False
takt = 0
End If
End If
End Sub