Este script es de vbs. No creo que te sea dificil implementarlo en vb5
Cita:
rem
rem --- delay.vbs ---
ejecuta()
Function Espera(Segundos)
Dim hora
hora = Timer
Do While Timer - hora < Segundos
rem
Loop
ejecuta()
End Function
Function ejecuta()
rem lo que sea ...
Espera(60)
End Function
salu2