Timer i Visual basic

for det første har det ikke rigtig noget med ASP.NET at gøre, men her:
http://samples.gotdotnet.com/quickstart/aspplus/default.aspx?url=%2fquickstart%2fhowto%2fdoc%2ftimer.aspx

Jeg ville kode det lidt anderledes. Den her timer udføres hvert sekund
(While løkken i Main er bare for at den ikke skal afslutte).

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

Det har da noget med .net at gøre da det er VB.NET jeg arbejder i.

Jeg prøver med de eksempler.

Jeg tror at prec hentyder til at der er en selvstændig VB.NET kategori

Ahh, det havde jeg ikke set..

Beklager min kommentar så..

Jeg kan godt bruge lidt mere forklaring på din kode.

I det link du sendte prec, eksistere det her ikke:
AddHandler aTimer.Tick
den hedder:
AddHandler aTimer.Elapsed

første argument = metoden der skal kaldes
tredie argument = millisekunder til den kaldes første gang
fjerde argument = millisekunder mellem hvert kald

Jeg klarede den således:
Me.Timer1 = New System.Timers.Timer
Me.Timer1.Enabled = True
Me.Timer1.SynchronizingObject = Me
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Interval = 1000
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs) Handles Timer1.Elapsed
        Label1.Text &= "-"
        Timer1.Interval -= 50
        If Timer1.Interval <= 51 Then
            Timer1.Enabled = False
            Label1.Text &= " Stop"
        End If
    End Sub