kør ting hver 1 min, 5 min, 30 min og halve time

Brug en timer.

Eksempel:

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, 2000) ' kør hver 2. sekund
        While True
            Thread.Sleep(100) ' undlad at afslutte programmet
        End While
    End Sub

    Shared Sub DoIt(ByVal o As Object)
        Console.WriteLine("Test")
    End Sub
End Class

takker, så er det bare det svar :)

ps hvordan laver man en værdi som gæller hele programmet fx

a=0

og hver gang timeren bliver kørt så | a = a + 1 |

svar

mports System
Imports System.Threading

Class MainClass
    private Shared a As Integer = 0
    Public Shared Sub Main(ByVal args As String())
        Dim t As Timer = New Timer(AddressOf DoIt, Nothing, 0, 2000) ' kør hver 2. sekund
        While True
            Thread.Sleep(100) ' undlad at afslutte programmet
        End While
    End Sub

    Shared Sub DoIt(ByVal o As Object)
        a = a + 1
        Console.WriteLine("Test")
    End Sub
End Class

Hvert 30. minut og hver halve time ?

så skal de 2000 erstattes af 1800000

:-)