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