Xpress Blog'

 On défini la fonction 
Function Wait(lngSeconds)
start=timer
  do
    i=timer
  loop until i-start>=lngSeconds
  Wait = Cstr(i-start)
End Function


Puis on l'utilise 
wait(2)