Sub Main()
        'vb 控制台 定时器
        Dim 定时器 As System.Timers.Timer
        定时器 = New System.Timers.Timer
        AddHandler 定时器.Elapsed,AddressOf 定时器事件
        定时器.Interval = 1000
 
        定时器.Start()
 
        Console.ReadKey()
    End Sub
 
    Private Sub 定时器事件(ByVal sender As Object,ByVal e As EventArgs)
        Console.WriteLine(Timer)
    End Sub