Put another Timer to the form (interval 1000) and put this code in it:
Code:
Dim x As Integer

Private Sub Form_Load()
x = 15
End Sub

Private Sub Timer1_Timer()
If x = 0 Then
x = 15
Label1.Caption = x
Else
x = x - 1
Label1.Caption = x
End If
And use the code from Escaflowne
for the time it's running

[Edited by Jop on 10-08-2000 at 06:01 PM]