Module MainModule
    Dim WithEvents _Timer As New Timers.Timer
    Dim _Counter As Integer = 0
    Dim _StopRequest As Boolean = False
 
    Public Sub Main()
        Console.Title = "Testausgabe am Console"
        Console.CursorTop = 1
        Console.WriteLine("Testausgabe am Console - " & Now.ToString)
        Console.CursorTop = 2
        Console.WriteLine("------------------------------------------------")
        With _Timer
            .Interval = 1000
            .Enabled = True
            .Start()
        End With
        Console.Read()
    End Sub
 
    Private Sub _Timer_Elapsed(ByVal sender As Object, ByVal e As _
      System.Timers.ElapsedEventArgs) Handles _Timer.Elapsed
        If _StopRequest Then
            _Timer.Stop()
            Return
        End If
 
        _Counter += 1
        If _Counter > 10 Then
            Console.CursorTop = 5
            Console.WriteLine("Ich habe fertig... !!! Drücke ENTER, und ich" & _
              "verschwinde!")
            _StopRequest = True
        Else
            Console.CursorTop = 4
            Console.WriteLine("Der Zählerstand steht bei: {0}", _Counter)
        End If
    End Sub
End Module