Boucle en vb

Bonjour et bonne fête de pentecôte,
Svp j'aimerai faire une boucle qui fonctionne par rapport à un timer mais ça marche pas.
En fait je veux qu'au bout de 30secondes il m'affiche dans un champ texte l'écoulement des secondes. Regardez le code:

Option Explicit

Private Sub chrono_Timer()
Dim tour As Integer
For tour = 60 To 0 Step -1
temps.Text = tour
Next tour
End Sub

Je vous en prie, quelle est l'erreur svp?