he modificado la función un poco.
El interval del timer1 lo he puesto a 1000. Luego, he puesto lo siguiente en TIMER1.:
Código:
Static Temp_Seg As Long
Temp_Seg = Temp_Seg + 1
If (Temp_Seg * 60) >= (5 * 60) * 60 Then
Temp_Seg = 0
actualitza_Click 'mi funcion
End If
en la linia:
Código:
If (Temp_Seg * 60) >= (5 * 60) * 60 Then
donde pongo 5, me actualizaria cada 5 minutos, pero si pongo 10 me da error. Porque sucede esto??