Problèmes avec une boucle

Bonjour tt le monde,
Voila j'ai un problem avec les boucle, je voudrais faire un boucle qui permetrai de perdre du temps, je voudrais qu'a chaque fois qu'il fasse un boucle il attende 15 sec avan de recommencer, j'ai essayer avec le DateTime mais sa ne marche pas vraiment, si vous avez quelque chose a me proposé ou corrigé mon codes, merci d'avance.
Smitchel

Private Sub Mode_boucle_Click()
Compteur = 15
Do While DateTime.Now < DateTime.Second(Compteur)
Compteur = Compteur + 15
Loop
End Sub

Dim PauseTime, Start, Finish, TotalTime
If (MsgBox("Cliquez sur Oui pour effectuer une pause de 5 secondes", 4)) = vbYes Then
   PauseTime = 5   ' Définit la durée.
   Start = Timer   ' Définit l'heure de début.
   Do While Timer < Start + PauseTime
      DoEvents   ' Donne le contrôle à d'autres processus.
   Loop
   Finish = Timer   ' Définit l'heure de fin.
   TotalTime = Finish - Start   ' Calcule la durée totale.
   MsgBox "Pause de " & TotalTime & " seconde(s)"
Else
   End
End If

 Do While Timer < Start + PauseTime
      DoEvents   ' Donne le contrôle à d'autres processus.
   Loop

Miro sa m'interesse bien ce que tu di mais jarrive pas a l'appliqué, tu pourrai me montré un exemple, par avance merci

ya un truc que jsaisi pas, comment jle lance ce codes?

Jsuis sur VB6 mais moi en fait jvoudrai que sa ce lance quan je clique sur un boutonj pas automatiquement.