Samoth
30 de Marzo del 2004

tengo una aplicacion la cual debe funcionar dia y noche sin interrupciones, y debo mostrar mensajes
cada una hora.
se que se puede hacer con el timer pero no se como

espero me puedad ayudar

Gracias

naveguito
30 de Marzo del 2004

Sería tal que así :

Option Explicit
Dim contador As Long

Private Sub Label1_Change()

If contador = 10000 Then
MsgBox "conseguido"
contador = 0
End If
End Sub

Private Sub Timer1_Timer()
Label1 = Time

contador = contador + Timer1.Interval
End Sub

Tal y como esta el código te avisa cada 10 segundos si quieres que sea para una hora sustituye 10000 por 3600000 (esto es una hora en milisegundos)

Saludos