Module Module1
 
    'Aca se crea el timer
    Public MyTimer As New System.Timers.Timer(1000) '1000 es el intervalo en milisegundos
 
    'Este es el procedimiento que ejecutara el timer
    Public Sub CodeToRun()
        'Tu codigo aca
    End Sub
 
End Module

AddHandler MyTimer.Elapsed, AddressOf CodeToRun 'Le decimes que cuando termine de contar ejecute el procedimiento CodeToRun
MyTimer.Start() 'Iniciamos el timer