Comment repeter une fontion plusieurs fois avec 5 sec d'intervalle ?

voila tout est dans le titre ,voici mon code .
pour l'instant j'arrive a repeter ma commande a l'infini mais elle se repete trop rapidement et ca plante le prog :(
donc il faudrait qu'elle se repete toutes les 5 sec ,si vous savez comment faire ,merci ;)

Private Sub Command2_Click()
Dim lar As Single
Dim hau As Single
Randomize
lar = Int((400 - 0 + 1) * Rnd + 0)
hau = Int((300 - 0 + 1) * Rnd + 0)
10 WebBrowser1.Navigate ("http://www.site.com/second.php?" & lar & "," & hau): GoTo 10
End Sub

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)


Private Sub Command2_Click()
Dim lar As Single
Dim hau As Single
Randomize
lar = Int((400 - 0 + 1) * Rnd + 0)
hau = Int((300 - 0 + 1) * Rnd + 0)
While ( true = true )
WebBrowser1.Navigate ("http://www.site.com/second.php?" & lar & "," & hau)
Sleep (5000)
Wend
End Sub


Et voila, une pause de 5000 millisecondes avant le retour

A++
Hervé

tout d'abord merci de ta reponse !
j'ai essayé ton code mais il y'a un gros probleme ,le prog n'execute plus la commande quand je met ce code ,j'entend juste le click de souris et la page que je veux afficher ne s'affiche pas :(
si tu connais une autre solution pour reexecuter une commande toutes les 5 sec ,je suis ok
-------------------------------
Réponse au message :
-------------------------------

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)


Private Sub Command2_Click()
Dim lar As Single
Dim hau As Single
Randomize
lar = Int((400 - 0 + 1) * Rnd + 0)
hau = Int((300 - 0 + 1) * Rnd + 0)
While ( true = true )
WebBrowser1.Navigate ("http://www.site.com/second.php?" & lar & "," & hau)
Sleep (5000)
Wend
End Sub


Et voila, une pause de 5000 millisecondes avant le retour

A++
Hervé

Mets 1 DoEvents Avant et apres le sleep Pour laisser la main aux autres


A++
Hervé