' threadtimer.vb Imports System Imports System.Threading Public Class ThreadTimerTest Shared Sub Main() Dim ttt As ThreadTimerTest = New ThreadTimerTest() ttt.Run() End Sub Public Sub Run() Dim timerDelegate As TimerCallback _ = New TimerCallback(AddressOf MyClock) Dim timer As Timer _ = New Timer(timerDelegate, Nothing, 0, 1000) Console.ReadLine() ' Enterキーが押されるまで待機 timer.Change(Timeout.Infinite, Timeout.Infinite) Console.WriteLine("タイマー停止") timer.Dispose() End Sub Public Sub MyClock(o As Object) Console.WriteLine(DateTime.Now) ' 出力例: ' 2005/11/08 19:59:10 ' 2005/11/08 19:59:11 ' 2005/11/08 19:59:12 ' …… End Sub End Class ' コンパイル方法:vbc threadtimer.vb