brug for timer-funktionalitet i en sub main()

jamen så må det være noget i den stil.. er dog ikke sikker på at du kan nøjes med dette hvis det skal køre/virke som service..

' ------------------------- Module1 -------------------------
' Husk at sette 'Startup Object' til Sub Main.
' Du skal dog også lige være opmærksom på at du kun kan stoppe
' programmet ved at bruge 'Jobliste -> Afslut proces'
Option Explicit

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public Sub Main()
  Do: Sleep 1000 ' <- 1000 = 1. sekundt
  ' --- her under kan du også skrive kode ---
  '
  ' -----------------------------------------
    DoEvents ' <- Fjern ikke 'DoEvents'
  Loop
End Sub
' ------------------------- Module1 -------------------------