Public Class Form1
Dim WithEvents MiTimer As New Timer ' WithEvents necesario para obtener el evento Tick
Private Sub IniciarMiTimer()
MiTimer.Interval = 1000 ' Aqui es escrito la cuantidad de milliSeguundos, de 1 hasta 2147483647 (= mas que 595 horas)
End Sub
' Cuando quieres arrancar MiTimer, en un procedimiento o una funciona, escribes MiTimer.Start
' Cuando quieres parar MiTimer, en un procedimiento o una funciona, escribes MiTimer.Stop
' En los eventos del Form, buscas el evento Tick y escribes el procedimiento siguiente :
Private Sub MiTimer_Tick(sender As Object, e As EventArgs) Handles MiTimer.Tick
' Este evento viene cada interval, como escrito en IniciarMiTimer (cada segundo com mi ejemplo)
' Escribir aqui los codigos que quieres ver se ejecutar a cada Interval
End Sub
End Class
Crear cuenta
