Visual Basic
Public Sub TimerOn(ByRef Interval As Short)
If Interval > 0 Then
' Start the timer.
Timer1.Enabled = True
Else
' Stop the timer
Timer1.Enabled = False
End If
End Sub
Длина интервалов определяется свойством Interval, значение которого исчисляется в миллисекундах
1000 миллисекунд = 1 с
Вроде так
Последний раз редактировалось lotos007; 07.10.2010 в 13:50.