Module Module1
    WithEvents DerTimer As New System.Timers.Timer(1000)
 
    Sub Main()
        DerTimer.Start()
        Console.ReadLine()
    End Sub
 
    Private Sub DerTimer_Elapsed(ByVal sender As Object, ByVal e As _
      System.Timers.ElapsedEventArgs) Handles DerTimer.Elapsed
        Static Berechung As Integer
        Berechung += 1
        ' Ausgabe:
        Console.WriteLine(Berechung & "%")
    End Sub
End Module

---------------
VB.NET macht Spaß!