Ver Mensaje Individual
  #3 (permalink)  
Antiguo 20/09/2004, 21:03
SolSeek
 
Fecha de Ingreso: agosto-2004
Mensajes: 8
Antigüedad: 19 años, 8 meses
Puntos: 0
Chequeate este codigo a ver si te sirve:

Código:
    Dim i As New Timers.Timer
    Sub Main()
        AddHandler i.Elapsed, AddressOf ontime
        Console.WriteLine("Press 'q' to quit")
        i.Interval = 5000
        i.Enabled = True
        If Console.ReadLine = "q" Then
            Return
        End If
    End Sub
    Sub ontime(ByVal source As Object, ByVal e As Timers.ElapsedEventArgs)
        Console.WriteLine("Hello World")
    End Sub