Hola gente del foro, estuve horas mirando como funciona un timer... y despues de un largo rato usando un mismo timer para una aplicacion que quiero q ejecute cada 2 minutos una funsion del codigo, me he dado cuenta que el timer consume demasiados recursos...

Ahora cuestiono, hay forma de reemplazar el control, o hacer que seamas establa la aplicacion en cuanto a recursos consumo de memoria, y demas... Aquien tiene algun ejemplo o algo que me redusca el consumo del ordenaro...

Ya q solo quiero ejecutar mi aplicacion y q cada 2 minutos ejecute un funsion.

Saludos

O asi:

Option Explicit
 
Private Sub Wait(ByVal lSeconds As Long)
Dim ActualTime              As Date
Dim FutureTime              As Date
    ActualTime = Second(Now)
    FutureTime = ActualTime + lSeconds
    Do
        DoEvents
    Loop While FutureTime > Second(Now)
End Sub

Y para esperar minutos:

Option Explicit
 
Public Sub Wait_Minutes(ByVal lMinutes As Long)
Dim Sgl_Start          As Single
Dim Sgl_End            As Single
    lMinutes = lMinutes * 60
    Sgl_Start = Timer
    Sgl_End = Sgl_Start + lMinutes
    Do While Sgl_End > Timer
        DoEvents
        If Sgl_Start > Timer Then Sgl_End = Sgl_End - 24 * 60 * 60
    Loop
End Sub

DoEvents¡!