Таймер, обратный отсчёт

[iDoctor]

Уважаемые, дайте совет начинающему..
Как сделать обратный отсчёт времени (ну скажем 5 минут) и отображать это с секундами в текст. поле или в надписи.
Знаю что первейший совет RTFM, но сейчас времени нет, в выходные обязательно займусь матчастью )))
Заранее благодарен всем за помощь...

[skiperski]

Код: Выделить всё

Option Explicit

Private TimeInterval As Long
Private TimerStart As Single

Private Sub Command1_Click()
    TimeInterval = 5 * 60 'в секундах
    Label1.Caption = Format$(TimeSerial(0, 0, TimeInterval), "hh:nn:ss")
    TimerStart = Timer()
    Timer1.Enabled = True
End Sub

Private Sub Form_Load()
    Timer1.Enabled = False
    Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
   
    Dim TimeLeft As Long
   
    TimeLeft = TimeInterval - (Timer() - TimerStart)
    If (TimeLeft <= 0) Then
        TimeLeft = 0
        Timer1.Enabled = False
    End If
    Label1.Caption = Format$(TimeSerial(0, 0, TimeLeft), "hh:nn:ss")
End Sub

[iDoctor]

Очень вам благодарен, спасибо