' Collection of code snippets by Arne Vajhøj ' posted to eksperten.dk, usenet and other places (2002-now) Imports System Imports System.Threading Class MainClass Public Shared Sub Main(ByVal args As String()) Dim t As Timer = New Timer(AddressOf DoIt, Nothing, 0, 1000) While True Thread.Sleep(100) End While End Sub Shared Sub DoIt(ByVal o As Object) Console.WriteLine("Test") End Sub End Class